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ABSTRACT 


This engineering manual provides a complete companion documentation about 
the structure of the main program and subroutines, the preparation of input 
data, the interpretation of output results, access and use of the program, 
and the detailed description of all the analytic, logical expressions and 
flow charts used in computations and program structure. A numerical example 
is provided and solved corn* . 7 etely to show the sequence of computations 
followed. The program is carefully structured to reduce both user's time . 
and costs without sacrificing accuracy. The user would expect a cost of 
CPU time of approximately $5.00 per building zone excluding printing costs. 
The accuracy, on the other hand, measured by deviation of simulated con- 
sumption from watt-hour meter readings, has been found by many simulation 
tests not to exceed ±10% margin, a margin which is considered very reasonable 
for engineering purposes. 
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SECTION I 
INTRODUCTION 


1.1 Background 

It is commonly conceived that buildings can be designed for minimum energy 
consumption if their thermal insulation is increased, window air leakage is 
reduced, lighting levels are decreased, shading devices are properly installed, 
heating and cooling equipment are adequately designed, maintained and their 
capacity fully utilized. These energy saving ideas and many others should be 
coupled before implementation with the cost of add-on equipment and materials, 
operation and maintenance cost, constraints of building codes, life styles, 
aesthetic attractiveness, etc. 

The common design methodology used in sizing heating and cooling systems based 
upon the single-value quasi -steady state peak suircner hour or peak winter hour 
usually results in oversizing of equipment and consequently overheating or over- 
cooling of the space to be controlled. Over-designed systems, while they are 
occupying more space, always operate at lower efficiency and in turn require more 
energy to function compared to properly designed ones. The single-valued design 
methods are, therefore, ruled out in any study or design of energy systems. 

The only effective way to study and design heating or cooling-systems and mini- 
mize their energy consumption, is to simulate the building thermal performance 
as accurately as possible. With the advent of high speed digital computers, 
the above simulation requirement can be done on an hourly basis for a full year 
and with summation over many zones or buildings. -In the last ten years, several 
of these simulation programs have been developed which vary in cost, availability 
to the user, program structure, and assumptions used in computations as indicated 
in references (1) and (2). Most of these programs, whether they are public o *' 
proprietary, are applicable to new system design or to add-on or retrofit systems. 
The user may access the programs by : (1) purchasing public source codes, (2) 

input data only through time sharing when dealing with proprietary source codes 
or (3) input data only to the developer when dealing with complete proprietary 
codes. The disadvantages to the user in types (2) and ( 3 } above are the lack of 
awareness about assumptions and limitations made by the developer and the inability 
of the user to improve or modify the codes. Proprietary programs are commonly 
written by architect-engineering consultants, heating, ventilation and air con- 
ditioning (HVAC) equipment manufacturers or utility companies. The cost to the 
user is usually included in their service. 

The need for a building simulation tool was essential to support the Deep Space 
Network (DSN) Energy Conservation project. The latter has been initiated to save 
energy and associated cost at government installations, and specifically at the 
Deep Space Communication Complex, at Golds tone, California. Twenty-three build- 
ings out of fifty were identified, by a first phase study, as major energy 
consumption buildings and were further put under investigation for a second 
building modification study. Both studies were performed by architect-engineer- 
ing firms in cooperation with the DSN engineering section at 0PL, r resulting in 
many energy saving recommendations. Furthermore, several suggestions and .proposals 
regarding building modifications have been presented by operations technicians and 





engineers motivated by the personnel Energy Conservation, Awareness and Recog- 
nition program (ECARP). It has, therefore, become essential for economic and 
technical reasons to develop a tool for accurate assessment and evaluation of 
all building modifications. 

To accomplish the task of finding the building simulation tool, a survey was 
made among fourteen available codes for heating and cooling load calculations. 

The major codes among them are (1) ECUBE 75 which was developed by the American 
Gas Association, (2) NBSLD, the National Bureau of Standards Load Calculation 
Program, (3) NECAP, the comprehensive and expensive NASA's Energy Cost Analysis 
program, (4) TRACE, the Trane Air Conditioning and Economics Program and (5) 

USPS, the United States Postal Services Program developed by the General American 
Transportation Corporation. 

Unfortunately, none of these programs was found: (1) suitable to simulate the 
unique features of two-level electronic control rooms located at the Goldstone 
Communication Complex, (2) low in running cost to yield an inexpensive evaluation 
of the tens of possible energy saving recommendations, and (3) simple enough for 
the average user with minimum input data about system parameters. Toward these 
objectives, an in-house Energy Consumption Program (ECP) was developed both to 
satisfy the Deep Space Network needs and to be also applicable to residential 
and institutional buildings. 


1.2 Purpose of Documentation 

The purpose of this engineering manual is to provide a complete companion 
documentation about the structure of main program and subroutines, the prepa- 
ration of input data, the interpretation of output forms, the access and use of 
the program, and the detailed description of all the analytic expressions and 
flow charts used in computations. The program is considered non-proprietary 
and is carefully structured to reduce both user's time and cost without sacri- 
ficing accuracy. 


1.3 Overview of Program Structure 

The calculation of energy requirements for heating or cooling in any enclosure 
involves three major successive steps. First, the calculation of the heat loss 
or heat gain to the enclosure which is heated or cooled is computed. Second, 
the heating or cooling loads imposed on the heating or cooling coils inside the 
fan-coil units (or air handlers) are determined. Third, the energy input to all 
of the primary components constituting the air conditioning system such as com- 
pressors, heat pumps, boilers, engines, etc., is calculated. Each of these 
calculation steps may be carried out with various degrees of complexity and 
sophistication if more refinement or accuracy is required. 

Fig. 1-1 illustrates, for example, the possible sources of heat gain or loss to 
dr from a simple zone as needed in the first step of calculation. These sources 
include (a) solar heat gain through windows and glass areas, (b) heat transmission 



T — xr *i -*T ’ 



1 SOLAR HEAT GAIN THROUGH 
WINDOWS, GLASS AREAS 

2 SOLAR HEAT GAIN THROUGH 
WALLS, ROOF 

3 TRANSMISSION HEAT 
GAIN/LOSS DUE TO HOT/ 
COLD OUTSIDE AIR 
THROUGH WALLS/ROOF 

4 TRANSMISSION HEAT 
LOSS/GAIN DUE TO COLD/ 
HOT OUTSIDE AIR THROUGH 
WINDOWS, GLASS AREAS 

5 MEAT GAIN/LOSS DUE 
TO VARIOUS TYPES OF 
NEIGHBOURING ZONES 
AT DIFFERENT TEMP. 

6 LIGHTS HEAT GAIN 
FLOU RESCENT AND 
INCANDESCENT 

7 PEOPLE HEAT GAIN 

8 ELECTRONICS EQUIP. 

HEAT GAIN 

9 MECHANICAL EQUIP. 

HEAT GAIN 

10 INFILTRATION/ 
EXFILTRATION LOSS 
OR GAIN, CRACKS, DOORS 
WINDOWS, . . 




Figure 1-1. Simple-zone heat gain/loss 
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through walls and roofs due to solar and ambient air effects, (c) internal heat 
gain from lights, people, electronic and mechanical equipment, (d) infiltration 
or exfiltration from cracks, and natural draft, and (e) effect of neighboring 
nodes at different temperature compared to the zone under study. In Figure 1-2, 
the location of the fan-coil unit (air handler) with respect to the zone is 
illustrated. The expressions of "supply air" to the zone, "return air" from the 
zone, "outside air" and "mixed air" will be repeated throughout the text and 
the reader should be familiar with their positions in the common air conditioning 
loop in Fig. 1-2. The fresh outside air charge to the loop and the recycling of 
some of the warm return air from the zone(s) is a common practice to both satisfy 
the ventilation needs and to save heating or cooling energy needed at the air 
handler coils. Fig. 1-3 shows how the air conditioning loop can be different 
when a two-level zone versus a simple zone is conditioned. Two-level zones are 
quite common in industrial or utility plants where large number of automatic 
control and monitor equipment or racks are grouped in one room. The equipment 
cooling is made via a large cold duct (air plenum) that exhausts in the room through 
the racks. For personnel comfort in this type of zones, another stream of 
"comfort air" is fed into the room, through ceiling or floor level outlets, to 
mix with air discharged from electronic racks. 

The second step of program calculations, the heating or cooling loads at the 
air handler coils, are computed to match the zone needs. The third step of 
calculations then follows and requires the definition of HVAC components such as 
the boilers (whether gas-fired or electric type) for heating and the electric 
driven vapor-compressor refrigeration units for cooling. Other supporting com- 
ponents such as motors, pumps, fans, engines, etc., need to be also included. 

The dual duct system, shown in Fig. 1-4 for example, is one of many fan-coil 
arrangements that will be explained in detail later. This is only presented at 
this stage to acquaint the program user with the type and location of components 
included in the building energy analysis. In the dual duct multizone system, 
the mixed air leaving the fan section is divided into two main air streams; one 
of them is cooled down to the cooling set point temperature (commonly at 55-60°F) 
and the other one is heated up to the heating set point temperature (commonly at 
80-90°F). Each zone according to its internal heat gain or loss asks the air 
handler for a specific "supply air" temperature to meet the comfort conditions 
inside it. The mixing box, located prior to each zone air supply section, extracts 
the appropriate amounts of air from each of the hot and cold ducts and mixes them 
together to yield the air mixture temperature requested by the zone. The function 
of controlling the mixing process is usually made by motorized dampers that are 
actuated by signals from temperature sensors. The cooling coil, heating coil, 
boiler, and the vapor compression refrigeration unit are included in Fig. 1-4 
to show their relative position in the cycle. 


1.4 Program Methodology 

The following paragraphs explain the methodology used to express each major 
heading in the program. More input data description can be found in Section III. 













ELECTRIC 

RESISTANCE 


_0R 

FUEL 


Figure 1 - 4 . Example of primary air conditioning equipment components in a 
dual duct multizone system . 





8 


1.4.1. Weather Data 

Only outside air dry bulb temperature, cloud cover factors and wind speed are 
needed. Since the program is handling only sensible loads with no consideration 
to latent loads, the outside air wet bulb temperature or relative humidity is 
not needed in the weather data. 


1.4.2. Transmission Loads Through Walls and Roofs 


The methods that have been developed in the past, such as degree-days or bin 
methods, for proportioning the design load to provide hourly loads, were found 
unacceptable with their gross approximations. On the other hand, sophisticated 
and time consuming methods such as using the transfer functions or response 
factors are expensive and cannot be justified on the basis of the random changes 
of many other parameters in the system. This means that it is illogical to 
increase the accuracy of only one of the many sources of heating or cooling 
loads Ji.e., the heat transmission through wall s/roofs.) while the other sources 
are subject to random changes with very large errors. 


The methodology used in ECP is the sol-air temperature method or Total Equi- 
Temperature Difference method (TETD) as described in references (3) and 
(4) and is written in CTRANS) subroutine section VII. It is a comprehensive 
yet easy uo apply method. In the TETD method, the effects of outside air tem- 
perature and solar radiation intensity are combined into a single quantity, 
walls and roofs are assumed homogeneous with constant material properties that 
are determined in advance by the special sub-program (UVPHI), presented in 
a ?J?f* n !rj' x ” ^ne steady state and transient heat transfer coefficients together 
with the phase hours needed to run the heat transmission calculations in (TRANS) 
subroutine are expressed analytically in (IJVPHr) subprogram. 


1.4.3. Solar Heat Gain 

Local solar radiation values have been calculated in (SOLAR) subroutine, as 
explained in Section VI, using the well-known ASHRAE model described in Refer- 

k C1 °i! d C0 I er T a ?! or f are used t0 md ^ f y the hourly radiation values from 
* * OLAR) subroutine to yield the local and site-specific values. This procedure 

was found to be effective in reducing solar radiation and cloud data required for 
manipulation, since only the monthly integration of direct normal solar irradiation 
\s required for the computation of monthly cloud cover factors* The latter can 
be measured by an integrating type radiation pyrometer. Heat gain through glass 
doors or windows will then follow in computation given the glass transmissivity. 


1.4.4. Infiltration/Exfiltration Load 

The "air change method" is used to calculate the infiltration/exfiltration heat 
* ad l n £ hls P r ?9C am instead of the common "crack method". In this method, the 
efiect of repetitive opening or closing of doors, windows and leakage of outside 
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air to or from the zone by natural draft is averaged by assuming a fixed outside 
air change rate of 1.2 changes/hr. The computation of heat loss or gain from or 
to the zone then follows assuming quasi -steady state conditions. 


1.4.5. Internal Heat Load Profile 

Since latent loads due to humidity gain or loss to the zone are often less than 
10 % of the total heat load, only sensible heat loads are considered in the pro- 
gram. With this approximation in mind, the computer memory storage and humidity 
related calculations were simplified. The cancellation of psychrometric chart 
manipulations and the reduction of weather deck data are examples of simple 
handling of data. It is worth mentioning in this respect that the assumption of 
negligible latent loads, although it appears as a gross approximation, is not 
seriously affecting the accuracy of computations for a full year simulation 
period. This is due to the fact that the other sources of internal heat loads 
usually encompass parameters of random nature and given by the user based on his 
"best estimate". 


The inte lal heat load in a zone is composed of heat gain from people, light 
(incandescent or fluorescent), electronic and mechanical equipment, and other 
miscellaneous sources such as process steam, kitchen equipment, etc. Each of 
these loads are calculated on an hourly basis for two day-types representing 
repetitive events for the whole year. The first day- type represents all working 
weekdays (approximately 251 days; and the second day-type augments all weekends 
and nolidays (approximately 114 days to include 10 official holidays). The 
number of persons occupying the zone, the wattage rating of electrical, mechanical 
equipment and light bulbs are listed every hour for the two day-types. Since 
the data collected under this internal load calculation section are considered 
approximate estimates with, varying degrees of uncertainty, it was decided in 
the early stages of ECP development that the (TETD) method, previously described 
under subsection 1.4.2, and the assumption of zero latent loads are in fact 
adequate to meet the program goals of simplicity and low running cost. Further- 
more, the transient effects of convection-radiation segments of all internal heat 
loads from light, people and equipment were neglected. The internal loads are 
assumed totally convective and their hourly values were computed by quasi-steady 
state equations. 


1.4.6. Architectural Data 

The physical and architectural characteristics of the building and its zones 
play a significant role in the sensible heat load. The required data include 
building orientation, latitude, elevation above sea level, wall areas, glass 
areas, space volume, physical dimensions, exterior walls solar absorptivity and 
the cross section description of layers constituting walls and roofs. The 
data are grouped by zone; the maximum number of zones per building is not allowed 
to exceed eight in the program. If there are more than eight zones, grouping 
of several zones into macrozones having the same fan-coil feed arrangement may 
be done. 
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1.4.7 Shading Factors 

The shading factors are used to attenuate the incident solar radiation and the 
heat transmission to exterior walls. Shading due to overhangs, side projections 
or adjacent buildings is handled in ECP as a fixed fraction between zero and 
one given by the user based on yearly average observation. This approximate 
method is used in lieu of the detailed analytical methods used to compute hourly 
shaded areas at varying sun angles. 


1,4.8 Loads Due to Neighbouring Areas 

The effect of a neighbouring zone having a temperature different from that of 
the zone under study has been taken into consideration in load calculations. 
Ground floors were assumed perfectly insulated with no heat exchange to or from 
the varying temperature ground. Temperatures of neighbouring zones are specified 
by the program user as input data as will be explained later. 


1.4.9 Fan-Coil Types and Arrangement 

There are nine types of fan-coil arrangements that have been incorporated into 
the program for the second step of calculations. These are sketched in Fig. 1-5 
and will be explained in detail in Section VIII. Nine subroutines (KEQ1) through 
(KEQ9) are presented corresponding to each fan-coil arrangement. The maximum 
number of fan-coil units for each building is ten. To support the calculation 
of the heating and cooling loads of the fan-coil units, the ratio of outside 
air to total circulating air, and the set point temperatures of both hot and 
cold supply ducts are required as input. Moreover, for two-level rooms the 
maximum allowable plenum air temperature and the ratio of comfort air discharge 
.to total circulating air discharge are required from the user. The program 
also includes outside air economizer cycles and their various air flow and temp- 
erature control mechanisms. The outside air economizer cycles considered are 
explained in the main program Section V in detail. 


1.4.10 Time Clocks 

The inclusion of time clocks, to control the operation (on or off) of fan-coil 
units only, has been presented as an energy saving suggestion. The energy saved 
by a time clock control is optimum for buildings that operate on the common 8:00 AM 
to 5:00 PM schedule. The time clock on/off control in the program is not made 
applicable to lighting, electronic or mechanical equipment since these latter 
changes will appear directly under the internal load schedule data. 


1.4.11 Primary Equipment Performance 

The user will identify under this heading: 0) type of heating or reheating 
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systems (electric, gas-fired or heat pump), (2) the arrangement of fan-coil . 
units with respect to the electric driven compressor/chiller (vapor compression 
refrigeration units) and (3) compressor stages and size* The maximum number 
of compressors allowed in the program is ten per building. Each compressor 
was assumed to be made of two stages with the second stage giving the full refrig- 
eration tons when on. The coefficient of performance of heat pumps and vapor 
compression refrigerators was assumed a fraction (^50%) of the ideal Carnot's 
cycle working between the refrigerant's evaporator and condenser temperatures. 
Partial-load performance was assumed unchanged from 100% full load until 40% of 
the full load. Beyond the 40% full load point, the external energy consumed 
was assumed constant. Further details are given in the coefficient of perform- 
ance (COP) subroutine in Section IX. Electric heaters (or boilers) were assumed 
having a constant 80% efficiency at all loads. No absorption chillers, steam 
turbines or engines were considered in the primary equipment performance at this 
stage but the program is simply structured to allow for future expansions or 
inclusions if needed. 


4.12 Energy Consumed in Auxiliary Equipment 

An auxiliary equipment is defined in this program as that equipment outside the 
air conditioned space which is necessary for building operation but does not 
affect the heating/cooling loads calculations significantly or at all. Auxiliary 
equipment include air handler fans, condenser fans (if air cooled), condenser 
pumps (if water cooled), cooling tower pumps and fans, boiler pumps, external 
lights, etc. The energy consumed by these equipment directly affect the watt-hour 
meter reading. Their load profile and schedule can be quite complex if not simp- 
lified. The auxiliary equipment consumption is modelled in this program by name 
tag capacities and their total hours of operation. No allowance was made for 
partial load performance or flow, pressure and discharge variations. 


4.13 Energy Cost 

The unit cost of both thermal and electric forms of energy as purchased from 
a utility company or generated on site was used to compute monthly and yearly 
cost of energy. The economic section of the program is therefore made short 
with results that can fit many well -developed cost-benefit programs using the 
cash flow analysis. 


4.14 Other Program Features 

In addition to the above component description, many default values are assigned 
to fill unknown input data. The program is written in FORTRAN V computer 
language using the EXEC-8 commands and codes of UNIVAC-1108 machines at 0PL. 

The program output results are explained in detail in Section IV. The user would 
expect a cost of CPU time of approximately $5.00 per building-zone excluding 
printing cost. In this regard the program is considered inexpensive compared to 


other complex codes . J h %^ cu ^^! h ™/^t°r’readings f hf “been^oSnf by actual 

if considered very reasonable for 

engineering purposes. 


SECTION II 


ACCESS AND USE OF ECP 


ECP is accessed on the Univac 1108 System through the use of EXEC-8 control 
language. The following cards are necessary to execute the program: 

A. 1108 Control Cards 

A control card is used to control the flow, make necessary file(s) 
assignments) and execute the program. 

(1) @ASG,A PROGRAM. FILE. 

Assigns the file(s) containing the absolute element, ECPABS and all 
data elements. 

(2) 0XQT FILE. ELEMENT 

Executes the ECP absolute element. 

(3) 8 ADD FILE. ELEMENT 

Adds the data needed for the run from FILE.ELEMENT 

B. Data Deck 

The data bank is divided into three decks: a weather deck, an air con- 

ditioning equipment deck and a macrozone deck. The three decks are described 
in detail in Section III of this document. 

A typical program deck is illustrated in Fig. 2.1. It is assumed that the 
user has some knowledge of logging-on and logging-off the 1108 system. 

2.1 Use of (.NAMELIST) 

With the exception of the weather deck, all data are input into ECP using 
NAMELIST, explained as follows: 

NAMELIST is a FORTRAN V input/output option which allows an entire list of 
data to be input in the program with only one READ statement. The data with- 
in a NAMELIST must comply with FORTRAN V NAMELIST rules. These rules are 
discussed briefly below. A typical NAMELIST deck is illustrated in Fig. 2.2. 

The first card in a NAMELIST is a Title Card. This card must have $$ 
followed by the title of the NAMELIST with no blanks between, i.e., $$TITLE. 

Cards following the Title Card are Data Cards. The general form of input 
data is, for example: 

AH CM). = 1, NOP (.22,5) =3., HEATER = 1, 

The data are punched on a card between columns 2 and 80 in any order. Data 
items are separated by commas; the final comma of the last data card is 
optional. FORTRAN V ignores all blanks within a NAMELIST. Numerical values 
can be input in any form: real, integer or exponential form. All real data must 
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contain a decimal point. (A numeric character following the decimal point is 
not necessary.) Integer values are entered without a decimal point. The 
detailed description of each data entry includes the form of the data entry 
which allows the user to decide if a decimal point is needed or not. This 
is explained in Section III. For the two variables (HEATER) and (AH), for 
example, having dimensions (10) and (8,10), respectively, the following 
demonstrate the use of shorthand notation and overwriting in a NAMELIST deck. 

EXAMPLES OF SHORTHAND NOTATION 


Card Image 


Equivalent 


HEATER (5) = 1,1,1, V 
or v 

HEATER (5) = 3*1, ) 


HEATER (5) = 1 
HEATER (6) = 1 
HEATER (7) = 1 


AH (7,9) = 1,1,1, 
or 

AH (7,9) = 3*1, 


HEATER = 1,1,1, 
or 

HEATER (1) = 1,1,1, 


EXAMPLES OF OVERWRITING 


Card Image 

AH = 5*1 , 

AH (3) = 2,1,3, 


AH (7,9) = 1 
AH (8,9) = 1 
AH (1,10) = 1 


HEATER (1) = 1 
HEATER (2) = 1 
HEATER (3) = 1 


Equivalent 

AH (1,1) = 1 
AH (2,1) =1 
AH (3,1) = 2 
AH (4,1) = 1 
AH (5,1) = 3 


If any data entries are omitted in a NAMELIST they will be taken as zero 
unless a default value has been set* 


The final card in a (NAMELIST) is the END card. The END card must have 
a foil owed by END with no blanks between as shown in Figure 2.2. 

The data within a (NAMELIST) is further divided into two subqrouos: 

(1) NAMELIST/HANDLR/ data which are related to the fan-coil units (air 
handler) and the primary air conditioning components and (2) NAMELIST/INPUT1/ 
ti re ^ te< ? "to building architectural data and other zone data. 

_he detailed description of the data in each NAMELIST subgroup is given in 
the next Section. 
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SECTION III 

input data description 

deck a "d the „c». 

1 Weather Deck 

t™ p e r atwes d of^uiside t ai? f nronthir^oud related data iteras: dry bulb 
speed for the location undlr X3w? ud c0 ^ r factDre and hourly wind 

?a n ble Cl 3°J. C0 ’' er fact0J ' s are **■>■ as mon?hiy SVag^S a^fnftSIn 


No. Variabl< 


Numeric 

form 


CCF 


REAL 


TOA 


REAL 


WMPH 


- • I Weather Deck 
Dimension 


02 ) 

vector 


02,24) 

matrix 


REAL (24) 

vector 


Inscription 


£? l S tile rnont ^ ll y cloud cover factor 

*ve entries each occupyinq six cni 
UM1S C12F6.2). CCF(i) indicate? thl" 
cloud cover factor for the itR month? 

atur^in^degrees^F “af, 1 ,? tenper- 
teted jrtth twenty-four value°"f h 1*™ 0C 
daJ of ?h r a f ery i our 1n " re Presentative 
of^twenty-fou^eotri 2. e “"i" 

three columns. (Sr V^ lfT-" 9 

representative day. of tha 

Wind speed in miles per hour k u* a s * 

tive of thp vaaw r l a representa- 
entries occupies three^coLmn 6 twenty-foui 
speed data cSrtf ?! 3 U ^pS?j h L wia< 

S' Sr j a , h S? 0 ?S- Sr 

day of the S the re P rese htative 
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3-2 Air Conditioning Equipment Deck 


«ss.*wjii"gs arsss 

$$HANDLR The data entr ^ is started by writing ted ™ Table 3 - 2 

a " d $lEND ded ^ Writin 9 




accery 


form 

Real 


(2,5) 

matrix 


AH 


Integer 


C8.10) 

matrix 


kiforatt-hrs\f a each e auxil , ' COnSU ' n|>tl ' on ,n 

fans, pu rap 1,°Lt1r„\ri t T 3?«2, 

does not contHhufo .* e ^c.j that 

load of the buildinn ° n b + air conc ^ tioning 

according to X™ °3 ta are ente ™<l 
equipment as 

daytype then ir M ls the 

accery (M.l) = energy consumption by lights 

ACCERY ( M , 2 ) . fbergy^onsumpti on ^by^fans 
? n .^] air handlers in the 

ACCERY (M.3, - e *er£* ption by pumps 

in ttataildiiU condensers 

“ energy consumption by all 

ACCERY fM 51 - «nll er pumps 1 * n the building 
1 ib) " e 5W consumption by any 9 
other equipment which does not 

1nfload Ut a e nd t0 - the | ir «5«£ 

ab?ve d d n0t ment1 °ned 
which modulates S -the ^temperature 1 of a * 6 ? echanisn 

handler types 9 * ' There are n1 » e air 

jbe a Jona° ,d dUCt l ' 1th terminal reheat at 

2 ‘ si U nIif U ?V raultl ‘ 2ane wfth mixing boxes or 
air handle?’ Im,lt,20ne *ri«i mixing at the 


ACCERY CM,4) = 
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Table 3,2 (continued) 

NoT Variabl e Numeric Dimension Description 

. Form 


3. Single cold duct with bypass and 
terminal reheat. 

4. Heat pump with bypass control, or 
single duct with alternately operating 
cooling and heating coils with bypass- 
control. 

5. Two-level room with cold plenum air and 
comfort air modulated by terminal reheat 

6. Two-level room with cold plenum air and 
comfort air modulated by a mixture of 
cold air with bypassed mixed air and 
terminal reheat. 

7. Two-level room with cold plenum air and 
comfort air modulated by mixing cold 
and hot decks . 

8. Single cold deck with fixed, bypassed 
return air and terminal reheat', 

9. Two-level room with constant volume 
cold plenum air and variable volume 
comfort air at fixed hot deck tempera- 
ture. AH(i,j) indicates the jth air 
handler type that feeds the ilth zone. 


ALFA 

Real 

(TO) 

vector 

ALFA(i) is the ratio of fresh outside air 
discharge to total circulating air discharge 
of the ith air handler. 

BLDG 

String 

— — — ~ 

BLDG is the name of the building under study 
With maximum of six alphanumeric characters 
(e.g. BLDG = *G-86»). 

CLIMIT 

Integer 

1 

CLIMIT is the number of compressors in the 
building. CLIMIT cannot exceed 10. 

COPRES 

Integer 

(10,10) 

matrix 

COPRES indicates the compressor-air handler 
feed arrangement. Each compressor can feed 
a maximum of ten air handlers. All air 
handlers fed by the same compressor will 
be listed as follows: COPRES (M,N) = N 

implies the Nth air handler fed by Mth 
compressor is air handler No. N. 

DKWHE 

Real 

1 

DKWHE is the cost per ki Iowa tt-hr electric 
in dollars; default value is $.03. 

DKWHT 

Real 

1 

DKWHT is the cost per kilowatt-hr thermal 
in dollars; default value is $.012. 
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Table 3.2 (continued) 

Nck Variable Numeric Dimension Description 
Form 


9 


10 


11 


12 


ECON 


HEATER 


HFBRA 


ICNTRL 


Integer (10) ECON indicates the type of outside air 

vector economizer cycle used for each air handler. 
ECON(i) is the type of outside air econo- 
mizer cycle, if any, controlling the ith 
air handler. ECON is defined as follows: 

0. No outside air economizer cycle 

1. Honeywell economizer 

2. Barber- Coleman DIGI-DAP Control 

The explanation of the different economizer 
logic in each is presented in the main 
program Section V. 


Integer (10) HEATER indicates the type of heater used in 
vector each air handler as follows: 

0 - electric heater 

1 - gas-fired boiler 

2 - heat pump 

HEATER(M) = 1 indicates that the heater in 
the Mth air handler is gas-fired. 

Real (8) HFBRA is the ratio of the comfort air dis- 
vector charge to the total air discharge for air 
handler type 5, 6, 7 and 9. Also HFBRA 
is the ratio of bypassed return air to the 
total air discharge for air handler type 8. 
HFBRA(i) means the air flow ratio for the 
ith special zone. 

Integer (8,10) ICNTRL is an index that differentiates be- 

matrix tween air handlers feeding two-level zones 

and single level zones. The index ICNTRL 
can be 0, 1 or 2 according to the following: 
0 - Single level zone fed by one or more air 
handlers supplying each the same temperature 
to the zone. 

0 - Two-level zone fed by two air streams 
(plenum and comfort air) both from a single 
air handler 

1 - Two-level zone with the air handler(s) 
feeding its plenum air only 

2 - Two-level zone with the air handler 
feeding the comfort air only. 

If ICNTRL equals 0 then the air handler 
type (AH) can be from 1 to 9. If ICNTRL 
equals 1 or 2 then (AH) can only be 1, 2, 

3, 4 or 8. ICNTRL(i,j) presents the index 
for the jth air handler that feeds the 
ith zone. 
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Table 3.2 (continued) 

NqT Variable Numeri c Dimension Description 
. Form 

i 

13 KLIMIT Integer 1 KLIMIT is the number of air handlers in 

the building. KLIMIT cannot exceed 10. 

14 MAXMO Real 1 MAXMO is the number of months requested 

by the user for analysis. Default value is 
12. MAXMO = 8 means that the calculations 
will be executed for the first 8 months 
of the year starting with January. 

15 MLT Real 1 MLT is the mass-specific heat multiplier 

for the elevation of the site under invest- 
igation. At sea level MLT is 1.08; default 
value is 0.97 for Golds tone, California. 

For elevations different from sea level, 

MLT equals 1.08x(local pressure/sea level 
pressure). 


16 REHEAT Integer (8) REHEAT indicates the type of heating used 

vector for the terminal reheat coils at the zone. 

REHEAT only applies to those air handler 
types which have reheat coils, i.e., for 
AH = 1, 3, 5. 6, or 8. REHEAT is defined 
as follows: 

0 - electric heater 

1 - gas-fired boiler 

2 - heat pump 

REHEAT(M) = 2 indicates that air reheat 
system at the Mth zone is done by a heat 
pump. 

17 SETPTS Real (2,10) SETPTS is the temperature set point of the 

matrix cooling/heating coil for each air handler 
in deg. F. SETPTS is defined as follows: 
SETPTS (1 ,M) is the cooling set point of the 
Mth air handler. 

SETPTS(2,M) is the heating set point of the 
Mth air handler. 

18 SIZE Real (3,10) SIZE gives the air conditioning equipment 

matrix capacity. SIZE allows for a two stage 

compressor and a heat pump and is defined 
as follows: 

SIZE(1 ,M) - size of first stage compressor 
in tons of refrigeration for the Mth 
compressor. 

SIZE(2,M) = size of second stage compressor 
in tons of refrigeration for the Mth 
compressor 

SIZE(3,M) - size of heat pump in BTU per 
hour for the Mth compressor when it is in 
heating mode. 


] 

! I 
* j 


TMCLK represents the ON-OFF schedule of a 
time clock which controls the air condition- 
ing equipment. Forty-eight values per air 
handler represent twenty-four values for each 
daytyjpe. 

0 - Time clock is off, implies equipment is on. 

1 - Time clock is on, implies equipment is off. 
TMCLK(I,K) = 1 implies that the time clock 
associated with the Kth air handler is on 
during the Ith hour. 

ZCFM is the zone air discharge which is fed 
by a particular air handler in cubic feet 
per minute (cfm). Zones that are fed by the 
same fan-coil configuration can be grouped 
as one macrozone. One macrozone may be fed 
by several air handlers or one air handler 
may feed several macrozones. ZCFM of a • 
macrozone is the sum of air discharge (cfm) 
of each zone within the macrozone. 

ZCFM(K,M) refers to the air discharge (cfm) 
of the Mth air handler which feeds the 
Kth macrozone. 

ZLIMIT is the number of zones or macrozones 
in the building. 

ZLIMIT cannot exceed 8. If ZLIMIT exceeds 
8, zones may he grouped into macrozones 
having the same air handler type. 
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3.3 Macrozone Deck 


In a free Afield format Thesfdata i? PUt NAMELIST/INPUTV and' 

of the bunding/^ihvslS? dt c l* S 1Ve J he Sophie location 
related thermal and structural propertiL D Jf^fic a h r0 w° n ® and other 
zone. Table 3.3 lists the twentv?si£ wal ] : ^ordering each macro- 
alphabetic order twenty six variables defined in this deck in 



ADJ 


Integer (9,8) 
matrix 


AGLAS 


Real 


(9,8) 


21g.“ rt,rtor walls a " d 

ADJ determines the nature and conditions nf 
adjacent neighboring macrozones and their 
thermal environment. Orientation is qiven a 
number from 1 to 9 representing S,SW, W, NW, 

Neither VV!r re ! p ® ct ^ely. ADJ can 

ani/J m? °r? 2 5. or 3 as Allows: 

ADJ(5,M) = 0 indicates that no wall exists or 
there is a thin partition separating 
the southeast side of the M™ macro ! 
flrn , c m\ ? one from surroundings. 

ADJ(5,M) = 1 indlcrtjs that the southeast wall 
of the macrozone is adjacent 
to a room that is maintained at a 
Anife: mi _ constant temperature all year around. 
ADJ(5,N) = 2 indicates that the southeast wall 
of the Mth macrozone Is adjacent to 
an unconditioned zone typical to me- 
chanical rooms housing boilers, air 
conditioners, pumps, etc. The un- 

atfhn^nJ 6 - i ZOn • is ex P° sed to fluctu- 
ms - outside air temperature. 

»M) 3 ™{hcates that the southeast wall 

o« the M "macrozone ts an exterior 
■pi .1 , sX P? se d to ambient air temperaturi 
fluctuations in addition to direct 
solar radiation. 

AGLAS is the total area in square feet of all 

glass windows and doors in each wall (accordina 

Well ortedtetim 0 ? the macrozone? 

orientation is given a number from i tn q 

?& t ^. s ’ sw>w - NW ’ SE * E - NE - N ^°°° n 

AGLAS (4, M) = area of glass windows in the north- 
west wall of the Mth macrozone? 


~No. Variable" 


4 AWAL 
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_ Iable_3.3 Macrozone Denk 

T 'ft™ 1C u,mens1on Desirlptlm 


Real 


(9.8) 

matrix 


5 

6 


BOLEFF 

GRREFL 

KEQUPE 


Real 

Real 


1 


Real (24,16) 
matri x 


8 KEQUPM Real 


(24,16) 

matrix 


9 KPlGHT Real 


(24,16) 

matrix 


KtLGHT 


Real (24,16) 
matrix 


11 LAT 

12 NECHO 


Real 1 

Integer 1 


excIudinn h niS et area 1n s 1 u are feet) of each ^11 
areas, surrounding a macrozone ~ 
according to its orientation. Wall orientation 

NwJe eV Tanri^r? 1 t0 9 r e P resent *» ng S,SW,W, 
AWALf? Ml - roofs respectively. For example, 
AWAL{2,M) - area of southwest wall of Mth macrozone 

Boiler combustion efficiency. Default value is 0.8 

St^Se Ct ?s Vl S y 2 to 

SI ft? U «ch e dfnype'fo^"h\ tS '" ^ n *'-*° ur 

Sthedule of fluorescent liqht loads fr.y -„i, 

*>• each 

eacHo^ t° nS rJ by ^candescent\ ^ghts^in 
bf entered (e “we U „ d ^“ tern , al "W>® 
for eaTzi„ e T ^ t Lde U d r . Va1UeS f ° r Mch 

““ s Mr&sr 

ECHO? 1 ECH0 f wi ?1 “reprf rt C out r al 1 ^ brout1ne 

equals a zero? ed n put 11 data wn!^not U b^ ^i^f^NECHt) 0 

Section IV for more details. Default r Mlu d ' is S o? 
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Table 3.3 Macrozone Deck (cont'd) 


No. Variable 


Numeric 

form 


Dimension 


Description 


13 mop Real (24,16) Number of people occupying each macrozone. An 

13 matrix estimation of the number of people occupy mg each 

zone on an hourly basis for a typical day 1S 
requested from the user. Two daytypes for each of 
the allowable 8 zones are included. Twenty-four 
values are needed for each daytype^ 

PHIRF (M) is the phase angle or thermzl lag for the 
roof of the Rth macrozone. PHIRF is given in . 
radians. Default value is 1.30. See UVPHI sub- 
program, Appendix C, for PHIRF calculation. 

PHIWL (M) is the phase angle.or thermal lag for _ 
the exterior walls of the M tR macrozone. PHIWL is 
qiven in radians. Default value is 1.10. See 
UVPHI subprogram, Appendix C, for PHIWL calculations. 

Glass transmissivity. Default value is 0.88. 

TNEXT is the temperature of a neighboring room 
adjacent to a given macrozone wall that is main- 
tained at a constant temperature. TNEXT is only 
applicable when AD J - 1 . Wall .orientation is given 
a number from 1 to 8 representing S,SW,W,NW,oE,E, 

NE and N. TNEXT (6,M) = 65 means that the east 
wall of the M™ zone is next to a zone maintained 
at 65° F all year round. 

TP AM is the maximum allowable temperature of plenum 
air in deg F. Only applicable for two-level zones. 
Default value is 62°F. 

TSUM(M) is the summer design temperature of the 
macrozone in degrees Fahrenheit. Default value is 75 F 

TWIN(M) is the winter design temperaturg for 
the M™ macrozone, Default value is 75 F* 

Glass overall heat transfer coefficient in BTU/ 
hr-ft 2 - deg F. Default value is 1.13. 

(8) UR(M) is the steady state overall.heat transfer 
ector coefficient of the roof for the M™ macrozone. ^ 


14 

PHIRF 

Real 

(8) 

vector 

15 

PHIWL 

Real 

(8) 



vector 

16 

TAU 

Real 

1 

17 

TNEXT 

Real 

(8,8) 


• 

matrix 

18 

TPAM 

Real 

1 

19 

TSUM 

Real 

(8) 



vector 

20 

TWIN 

Real 

(8) 

vector 

21 

UGLASS 

Real 

1 

22 

UR 

Real 

(8) 

vector 

23 

UW 

Real 

(8) 

vector 


macrozone. UR 

is given in BTU/hr-ft*- deg F. Default value is 
0.1. See UVPHI subprogram. Appendix C, for UR 
calculation. 

UW(M) is the steady state overall heat transfer 
coefficient of exterior walls for the M™ macrozone. 
UW is given in BTU/ hr-ft 2 - deg F. Default value 
is 0.21. See UVPHI subprogram. Appendix C, for 
1JW cal cul ati on . 
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Table 3.3 (continued) 

No. Variable Numeric Dimension Description 

Form 


24 VOL Real (8) VOL(M) is the volume of the Mth macrozone 

vector in cubic feet. Default value is 5000 
cubic feet. The zone boundary used to 
calculate VOL is the occupied volume not 
including attics. 

25 VRF Real (8) VRF(M) is the amplitude of transient heat 

vector transfer coefficient for the roof of the 
* Mth macrozone. VRF is given in BTU/hr-ft^- 

deg' F. Default value is 0.05. See UVPHI 
subprogram. Appendix C, for VRF calculation. 

26 VWL Real (8) VWL(M) is the amplitude of transient heat 

vector .transfer coefficient for exterior walls of 
the Mth macrozone. VWL is given in BTU/hr- 
ft -deg F. Default value is 0.05. See 
UVPHI subprogram. Appendix C, for VWL cal- 
culation. 


From Table 3.3 the six variables number 14, 15, 22, 23, 25 and 26 are extracted 
from preceding execution of the UVPHI subprogram described in Appendix C. These 
six variables require for their evaluation the type, density, specific heat, 
thermal conductivity, thickness and number of layers used to construct exterior 
walls and roofs of each zone. 

Also, in Table 3.3, the five data arrays number 7, 8, 9, 10 and 13 provide the 
information needed for the internal load calculation. The values and time 
schedules entered are usually estimated with various degrees of uncertainty. For 
each zone (or macrozone) the five arrays are given for two daytypes representing 
the whole year profile: . Daytype (1) which is a typical weekday and Day type (2) 
which augments the profile during weekends and holidays. Each zone is associated 
with two columns of each array. The (2M-1) column represents daytype (1) schedule 
and the (2M) column represents daytype (2) schedule of the Mth zone. 

3.4 Sample Preparation of Input Data and a Case Study 

To simplify the process of gathering input data, a set of blank forms are pro- 
vided in Appendix B. The set of tables, table B-l to table B-41, should be filled 
in on site by cognizant personnel. Each table is provided with -a brief explanation 
free from the abbreviations and expressions commonly used by computer programmers, 
The intent is for it to be understandable to users of different backgrounds with 
minimum familiarity with computer terminology. A second set of tables, given in 
Section 3.4.2 as an example, represents a translated draft of the first set to be 
used by the machine operator. An execution of the subprogram (UVPHI), as explained 
in Appendix C, is still required before a full run of (ECP) can be made. 

The following case study illustrates the use of data tables presented in Appendix 
B and lists the assumptions and guidelines used in performing a complete energy 
analysis for a given building. 
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3.4.1 -Description of Building Zones 

The selected building under investigation is the Operations Support Building 
(building G-86) which is located at the Mars Deep Space Station. The latter 
is one station in the Deep Space Communication Complex located at Goldstone, 
California. 

Building G-86 is a two story building whose floor plan is illustrated in 
Figures 3.1 and 3.2. The type of occupancy in each room is presented in 
Table 3.4. In the first floor shown in Fig. 3.1, Room (101) acts as a large 
cold air duct (or plenum) providing the air upward to the second floor con- 
trol room number 201. Similarly, Room 102 acts as a cold air plenum 
providing the air upward to the second floor communication room number 213. 


.The building is originally composed of seven air conditioning zones as shown 
in Table 3.4 and Fig. 3.3. 

The first zone is the cold plenum (rooms 101 and 102) which receives a total 
of 40,000 cfm of cold air from only two air handlers; 23,000 cfm from air 
handler 1 and 17,000 cfm from air handler 2. Both air handlers 1 and 2 are 
multizone type with twin hot and cold ducts. A third air handler is 
located in room 107 which acts as a standby only to air handler 1 in case of 
failure. The second zone is the electronic communication room located on 
the second floor which receives 4000 cfm of "comfort air from air handler 2 
in addition to the part of upward plenum air that is coming through the > 
electronic racks located in the communi cation room on.ly. The third zone is the 
electronic control room located also on the second floor which receives 
another 4000 cfm of "comfort air" from air handler 2 in addition to the part 
of upward plenum air that is coming through the electronic racks located 
in the control room only. The comfort air temperature is maintained by 
proper air mixing in hot and cold decks. The fourth ^one supplies 2350 cfm 
conditioned air to the second floor rooms number 202,206,207,208 and 209. 

The fifth zone supplies 125 cfm conditioned air to the second floor rooms 

number 203,204 and 205. The sixth zone supplies 400' cfm conditioned air 

to the second floor rooms number 210 * 211 and 212. The fourth 5 fifth and 

sixth zones are fed by a main air duct from air handler 2 through 

mixing of air in hot and cold decks. The seventh zone is supplying equipment 

room 105 in the first floor with 400 cfm from the main "comfort air duct 

that supplies zones 2 and 3. This is in addition to direct infiltration 

plenum air in zone 1 to zone 7. For building modelling, zones 1, 2, 3 and 

7 are grouped into one large macrozone given the name macrozone 1. The 

comfort air for macrozone 1 is accordingly fed by air handler 2 by a lumped _ 

quantity of 8400 cfm. Also* zones 4, 5 and 6 are summed together and modelled 

as macrozone 2, which is fed by air handler 2 by 28J5 cfm of conditioned 

air. The single line schematic of the building two macrozones is shown 

in Fig. 3.3(b). The data collected to support the calculations are described next 


3.4.2 Collection of Input Data 


The following data points are gathered to support the modelling process. _ 

The data are listed in tables 3.5.1 through 3.5.25 and are explained as follows. 
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Table 3.4 Type of Room Activity in Building G-86 


Floor 

Room 

Nature of Activity 

Air 


Number 

Conditioning 




Zone 

1 

101 

Electronic control room plenum 

1 ' 

1 

102 

Electronic communication room plenum 

1 

1 

103 

Tunnel entrance 


1 

104 

Mechanical room housing air handler No. 

2 

1 

105 

Maser room 

7 

1 

105 

Mechanical room housing air handler No. 

1 

1 

107 

Mechanical room housing air handler No. 
(stand by). 

3 

2 

201 

Electronic control room 

3 

2 

202 

Hallway 

4 

. 2 

203 

Janitor Room 

5 

2 

204 

Rest room 

5 

2 

205 

Rest room 

5 

2 

208 

Offices area 

4 

2 

207 

Offices area 

4 

2 

208 

Rest area with snack machines 

4 

2 

209 

Offices area 

4 

2 

210 

Offi ces area 

6 

2 

211 

Offices area 

6 

2 

212 

Hallway 

6 

2 

213 

Electronic communication room 

2 

i 
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3. 4-. 2.1 Weather 

Weather data for calendar years 1970 through 1973 were made available for the 
study from nearby sites. Data for a "typical" year were developed from the 
dry bulb temperatures previously measured at ECHO station site and the cloud 
cover data were taken from the China Lake site. Both sites are within a 
radius of 20 miles from the MARS site. A "typical! day" in each month was 
formed by averaging over the days of the month. Dry bulb temperature data 
were listed in Tablets. 5.1. Raw wind data for the location were available 
but were not statistically processed. The location is known to be non-windy 
and have an average wind speed of 10 mi/hr all year around. Cloud cover 
factors were given in Table 3.5.2 by the ratio of integrated monthly solar 
radiation (at China Lake site) to that calculated theoretically by ASHRAE 
(ref. 3). 

In Table 3.5.3, the wind velocity (WMPH) was assumed 10 mph for each hour. 

3. 4. 2. 2 Air Handler Type 

In Table 3.5.4, the first macrozone is fed by the first air handler with cold 
plenum air and the AH type is I. Also, the first macrozone is fed by the 
second air handler with both plenum and comfort air the type that is described 
under AH = 7. The second macrozone is fed by the second air handler by the 
method described under AH = 2. 


3, 4.2. 3 Set Points 

By actual field measurements, the first air handler is set at 60°F and 95°F 
for cold and hot decks, respectively. The second air handler is set at 55°F 
and 95°F for cold and hot decks, respectively. Data are entered in Table 3.5,5 


3. 4. 2. 4 Zone Air Handler Characteristics 

Since there is no terminal reheat at any macrozone, the variable REHEAT is set 
equal to zero in Table 3,5.6. The air flow ratio for special zones (HFBRA) 
is only applicable to the first macrozone and is equal to 8,400/25400 - 0 33. 
The type of heating used in both air handlers is electric. No outside air 
economizer cycle is used in both air handlers. The percentages of outside air 
to total circulating air are measured as 0.05 and 0.17 for air handlers 1 and 
2, respectively, and are entered in Table 3.5.7. The air discharge to each 
macrozone from each air handler is abstracted 'from Fig. 3.3 and entered in 
Tab3e 3.5.8. The index for two-level zones (ICNTRL) is given in Table 3.5.9 
for the first macrozone and the first air handler only. Since there is no 
time clock used to control the operation of both air handlers Table 3.5.10 
is left blank or filled with zeros. 
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3.4. 2.5 Compressor- Air Handler Arrangement 

From field observations, the first compressor which is feeding the first air 
handler is composed of two multistage units; each produces 56 tons of refrig- 
eration at full load. Although one of them is actually used as a standby, 
both tonnage are entered in Table 3.5.11. The second compressor, feeding 
the second air handler, is composed of three multistage units each having 28 
tons of refrigeration at full load. The second compressor produces 84 tons 
total at full load and is modelled as a two-stage compressor with 42 tons 
each. Tables 3.5.12 and 3.5.13 are completed foil owing the above information. 
Since the local elevation is 3000 ft. above sea level with an atmospheric 
pressure of 26.82 in Hg, the multiplier (MLT) in Table 3.5.13 is found 
to be 1.08 X 26.82/29.92 or 0.97. 


3. 4. 2. 6 Accessories Load 

The data used in Table 3.5.14 are entirely estimated and taken from name 
plate information. The 4 KW e external lights to the building are assumed 
to be on for 12 hrs/day. The sum of the two air handlers fan power is 6 KW e 

is assumed continuously on for 24 hrs. The same is done with the 10 KW e . 
condenser fans and the 7 KW e electric boiler circulating pumps. No 
differentiation is made in auxiliary equipment consumption for daytype (1) 
and daytype (2). 


3.4. 2. 7 Architectural Data 

Wall areas, glass areas, orientation, adjacent neighbour condition and 
its temperature, and the fraction of unshaded portions are entered in Tables 
3.5.15 through 3.5.19. Data are collected from field measurements and 
as built drawings. Structural details of walls and roofs are found from 
architectural drawings to support the UVPHI subprogram. The values of UR, 
UW, VRF, VWL, PHIRF, and PHIWL listed in Table 3.5.20, are taken from the 
G-86 example in Appendix C. 


3. 4. 2. 8 Time Schedule of People, Light and Equipment 

For each macrozone. Tables 3.5.21 through 3.5.25 include the time schedule 
of number of occupying persons, wattage of fluorescent and incandescent 
light bulbs, wattage of electrical and mechanical equipment. Data for day- 
type (1) and daytype (2) are also entered. The data were abstracted fror. 
tracking station maintenance files, communication with building personnel 
relative to operating practice, field survey and actual measurements. No 
consideration was given to predicted future changes and only present con- 
ditions are used in computations. 


able 3.5 Set of Tables For G-86 Input Data 
Table 3.5.1 TOA (F3.q) 


MOUTH 





47 46 


51 50 


61 59 


r 70 


79 77 


80 78 


71 69 


59 | 58 


46 46 


39 38 


40 I 39 39 


45 45 (45 


46 1 45 45 


49 48 


58 57 56 


68 | 67 (66 


76 75 74 


77 76 75 


68 | 67 67 


57 j 57 56 


46 | 45 46 


37 37 37 


39 I 38 j 38 


. ' HOUR 

VI 1 12 1 13 1 14 


47 50 


M 4J- 45 47 52 56 1 59 I kp |« 

_45 46_ _49 52 56 59 60 63 64 

-ig— 48 1 52 [55 1 59 ~62 64 66 \ 6B 

56 55 57 61 65 68 72 75 

65 | 65 1 69 |73 77 81 85 ~R7~ 1 90 

78 82 ~87 90 93 95 

6 ( 81 86 89 91 93 

74 78 82 85 86 

55 I 55 1 57 (60 1 63~~ 66 69 72 73 

54 56 58 60 

37 ] 36 | 38^40 | _ 44 (46 j 48 49 1 49 


73 


66 65 {66 



Table 3.5.2 CCF (F 6.2) 



1 able. 3.5. 3 ‘ WMPH (F3.0) 


5 6 


10 11 1 12 13 14 


10 


41 

50 


_22 

40 

49 


1 


2£ 

40 

47 




15 


53 


63 


64 


68 


79 


16 


52 | 50 


63 


64 


69 


80 


17 


62 


63 


68 


80 


18 


47 


59 


61. 


67 


19 


43. 

55 


SB. 


80 


20 


41 


52 


55 


65 61 


78 


76 


S3. 


58 


73 


.51 


55 


69 


23 


40 


48 


M. 


53 


66 


£1 


52 


61 


91 


97 


92 


98 


93 


92 


91 


98 


98 


97 


88 


84 


80 


76 


94 


91 
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84 


74 
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87 


74 


61 


95 


88 


73 


61 


49 (48. 


95 


95 


94 
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87 


85 
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73 


86 _ 
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65 


59 


55 


52 


50 
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4*3 


41 


40 


77, 


1L 


62 


49 


39 
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49 


39 


ZlLj 

59 


81 


LZU 

59 


48 
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38 
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3.5.6 REHEAT & HFBRA TABLE 
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3.5.9 I-CNTRL TABLE 



3.5.10 TMCLK TABLE 


KNUM 


24 HOUR SCHEDULE 

1 

1 

24 x 0 

2 

/ 


2 

1 



2 



3 

1 



2 



4 

1 



2 



5 

1 



2 

j 


6 

1 





... . — ' 

7 

m 



2 




1 



8 

2 



. 

1 



9 

2 




1 



10 

2 

SJ 

7 




















3.5.12 COPRES TABLE 
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3.5.22 

KFLGHT TABLE 

ZONE 

DAYTYPE 

24 HOUR - SCHEDULE 

1 

1 

6 *13.0, 4 * 16.5, 6 * 20.5, 2 * 17.. 6 * 13. 

2 

6 * -13.0; 4 * 16.5, 6 * 20.5, 2 * 17, 6 *13. 

2 

1 

6 * 3.0, 10 * 6.9, 8 * 3.0 

2 

24 * 3.0 

3 

1 

24 * 0.0 

2 

24 * 0.0 

4 

1 
- A 

24 * 0.0 

2 

24 * 0.0 

5 

1 

24 * 0.0 

2 

24 * 0.0 

6 

; 1 

24 * 0.0 

2 

24 * 0.0 

7 

i 

24*0.0 

2 

24 * 0.0 

1 ■ ■ 

1 

24 * 0.0 

; 8 

i 

_ 2 

24 * 0.0 , 

3,5.23 KILGHT TABLE 

ZONE 

DAYTYPE 

24 HOUR - SCHEDULE 

1 ' 

1 

24 * 0 

2 

24 * 0 

2 

_ -1- 

6 *0. MO * 0.1 8 * 0 

2 

24 * 0 

3 

1 

24 * 0 

2 

24 * 0 


1 

24 * 0 

4 

2 

24 * 0 


1 

24*0 

5 p 

2 

24 * 0 

6 

1 

24 * 0 

2 

24 * 0 

”7 - 

1 

24 * 0 

7 . . i 

2 

24 * 0 

Q 

1 

24 * 0 

O 

2 

24*0 













































































SECTION IV 

DESCRIPTION OF OUTPUT FORMS 


The program results are given in tabular form and are divided into seven groups: !••] 

•i t 

1) Tables of echoed input data h 

2) Tables of hourly, daily and monthly load calculation of each zone j \ 

3) Tables of hourly, daily and monthly cooling and heating loads of each i i 

air handler j j 

4) Tables of hourly, daily, and monthly cooling load of each vapor-compression I j 

compressor •; 

5) Tables of hourly, daily and monthly profile of watt-hour meter 

6) Tables of new design conditions 

7) Tables of monthly and yearly itemization of energy consumption and cost 

Each group of tables is described next. /)• 

4.1 Tables of Echoed Input Data 

Upon assigning the variable NECHO (see number 12, Table 3.3) the value "one," : 

the program will call the subroutine ECHO to echo all the input data in a {■ 

readable tabular form. Fig. 4.1 illustrates the output form for the example 
building (G-86) given in Sec. 3.4. The input data presented in Fig. 4-1 ; 

should match the data in Section 3.4.2 and are sectioned for convenience j 

to the reader. ' 

I. 

4.2 Tables of Zone Loads I 

The output form presented in Fig. 4-2 pertains to the same example. Building J 

G-86, presented in Section 3.4. Only the result of the month of January " j 

is given as an example; i.e.. Fig. 4-2 presents 1/12 of the zone loads output. j 

The columns from left to right are explained as follows: j 

Column 1 (MO) 

Column 2 (ZONE) 

Column 3 (DAY-TYPE) 

Column 4 (HR) 

Column 5 (INFILTN) 

Column 6 (GLASS) 


Column 7 (TRANSMTN) 

Column 8 (LIGHT) 

Column 9 (PEOPLE) 

Column 10 (EQUIPMENT) 

Column 11 (NET HEAT) 

Column 12 (SUPPLIED 
AIR TEMP) 

Column 13 (RESULTANT gives the zone inside temperature in deg F. This should 

RM TEMP) match the design conditions with proper air handling. 


gives the month (varies from Jan to Dec) 

gives the zone or macrozone number (varies from 1 to 8) 

gives the daytype number (1 or 2) 

gives the hour of the day (varies from 1 to 24) 

gives the infiltration heat gain or loss to the zone 

in Btu/hr 

gives the direct solar heat gain and heat transmission 
from the outside air through glass areas of the zone, 
in Btu/hr 

gives the combined solar and ambient heat transmitted 
through solid walls and roofs of the zone, in Btu/hr 
gives the heat gain to the zone by incandescent and 
fluorescent lights, in Btu/hr 
gives the sensible heat gain to the zone due to 
people, in Btu/hr 

gives the heat gain to the zone by mechanical and 

electrical equipment in Btu/hr 

gives the algebraic sum of columns 5 through 10, in 

Btu/hr 

gives the supply air temperature to the zone, in deg F 
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Column 14 (COOLING) This gives the cooling coil load in tons of refrigeration 

that is required to satisfy the zone needs. 

Column 15 (HEATER)) This gives the heating coil load in Btu/hr, which is 

Column 16 (BOILER)j required to satisfy the zone needs. Column (15) is used 

Column 17 (PUMP) J for electric heating, column (16) for gas-fired boilers 

and column (17) for heat pumps. Only one of the three 
columns will give the heating load values. 

4.3 Tables of Air-handler Loads • 

The hourly, daily or monthly cooling and heating loads on the air handler 
coils are presented in Fig. 4.3 , for the example building G-86.Table 4.3 
presents only results for the month of January i.e., 1/12 of the yearly 
total air-handler load tables. 

The columns of Fig, 4.3 from left to right are explained as follows: 

Column 1 (AIR-HANDLER) gives the air-handler number (varies from 1 to 8 

maximum) 

Column 2 (MO) gives the month (varies from Jan to Dec) 

Column 3 (DAY -TYPE) gives the day- type number (1 or 2) 

Column 4 (HR) gives the hour of the day (varies from 1 to 24) 

Column 5 (TEMP OF gives the temperature, in deg F, of the air mixture 

MIXED AIR) at the fan-coil entrance. This is a mixture of outside 
air and return air 

Column 6 (COOLING) gives the cooling load on the air-handle cooling coil 
TONS in tons of refrigeration 

Column 7 (HEATER)) gives the heating load on the air handler heating 

Column 8 (BOILER) j coil in Btu/hr. Column (7) for electric resistance 

Column 9 (PUMP) ). heaters, column (8) for gas-fired boilers and column 

(9) for a heat pump 

gives the limits of the supply air temperature (in 
deg F) to all the zones fed by a particular air handler. 

Column (10) gives the minimum value, and column (11) 
gives the maximum value. 

In addition to the above, the monthly minimum and maximum supply air temper- 
ature to the air handler zones are listed for reference. 

4.4 Tables of Refrigeration-Compressor Loads 

The hourly, daily or monthly cooling loads on the vapor-compression refriger- j 

ator compressors, are printed in a form identical to Fig. 4.4. Fig. 4.4 lists i 
the output results for the example building G-86, and the results shown j 

present 1/12 of the full year performance. The columns are explained as follows: j 

Column 1 (COMPRESSOR) gives the number of compressors (varies from 1 to a ; 

maximum of 10) j 

Column 2 (MONTH) gives the month of the year (varies from Jan to Dec) j 

Column 3 (DAY-TYPE) gives the number of day-type (1 or 2) j 

Column 4 (HOUR) gives the hour of the day^Varies from 1 to 24) ! 

Column 5 (TONNAGE) gives the cooling load on compressor, in tons of 

refrigeration : -V- : . j 

Next to the above columns, the "DAILY TOTAL" line gives the sum of cooling \. 

energy consumed for each day in ton-hrs. The number of hours per day during 
which the compressor was "off" is also included. 



Column 10 (MIN TSAZ)) 
Column 11 (MAX TSAZ) j 
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4.5 Watt-hour Profile 

summed for al^the^ight^ ^ building under study is 

and presented in the form ’of Fio 45 mechanical equipment, etc., 

example building G-86 The simnlptoHVu FlS 'i 4 * 5 Pr essnics the results of the 
deviate very much (+ io*at tfS !? ues glven in Fi 9- 4.5 should not 

if available. 1 the most) from t,le actual watt-hour meter chart, 

4.6 Design Conditions 


new building equipment!^ J? for ^antizinS the d-f US6r Wh ? 15 des1 9ning 
condition and a "properly desianed^onl 9 Thf h ' f erence , between a "present" 
divided into three sets. 9 one * The design conditions data are 

4.6.1 Zone Design Conditions 

These consist of: 

:: to or from the ^ 
j i0 ° r «» 1» Btu/hr. among the 

d°) & n t V v a I?S=°oVSn f0r ProPer deSl9n 

6) ™eTe$r 11nS lMd 1n t0nS 0f needed to satisfy the 

4.6.2 Air-Handler Conditions 

a) Minimum ventilation air, in cfm (MIN CFM) 

c> by . 
d) Yearly maximum cooling load on air handler cooling coils 

4.6.3 Compressor Design Conditions 
These include: 

a) Yearly sum of cooling energy in TON HOURS 
bj The yearly maximum cooling load in TONS. 

4.7 Monthly Energy Consumption, Itemization and Cost 

tta%Sgita building 0 G-86 1 "" ^ ,n Ff 9 4 ‘ 7 ft "- 

as follows: columns from left to right are explained 


Column 1 
Column 2 

Column 3 

Column 4 

Column 5 


gives the month of the year 

mont b1y energy consumption due to incandesce* 
«?ir?r eSC£m ? 1lghts in the building , in KWHp 
fhS fi th S'™ on f hly energy consa mption due to mechanical 
a?lfS^ Ca L? quipment in the building tn Sf 
in KWH^ thly energy consumption due to auxiliaries 

gives the monthly energy consumption by vapor 
compression refrigeration machines in KWH- 
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Column 6 
Column 7 
Column 8 
Column 9 
Column 10 


gives the monthly energy consumption by electric 
resistance heaters in KWH e , if any 

? 1 * v ^ s ,„ the . nionthTy energy consumption by heat pump(s) 
in KWHe* if any 

gives the monthly electric energy consumption, in KWH e 
Column 8 is the sum of columns 2, 3, 4, 5 ,6, and 7. e 
gives the monthly thermal energy consumption by gas- 
fired boilers used for heating, in KWH* 
gives the monthly energy cost in dollars, combining 
electrical and thermal forms. 


SCP PROGRAM 

*** ENERGY CONSUMPTION ESTIMATION FOR- BUILDING 6*86 
*** NUMBER OF MACROZnNES s g 

*** NUMBER OF AIRHAN0LER8 e g 

*** ABSORPTIVITY OF WALLS AND ROOFS R ,62 

*** LATITUDE ANGLE FOR THE LOCATION s 35. 


DATE 062378 PAGE 


**«*MH*MM*MM****M************************* Z0NE INPUT pat a ******#*>M*****M**MMm*Mm**mM**************** 


*«# WALL AREA IN 50, FT, 


ORIENTATION 
ZONE 

1 

2 


S 


Sw 


NW 


SE 


NE 


N ROOF 


380. 

1055. 


0 . 800 , 

0 , 200 . 


0. 

0. 


0, 800, 1380 » 1510, R560, 
0, 196, 0. 1770. 2290, 


'***■ WALL ADJACENT CONDITIONS 


FOR NO WALL OR PARTITIONS 

FOR AN INTERIOR WALL ADJOINTING A CONSTANT TEMP 
FOR AN INTERIOR WALL ADJOINTING A UNCONDITIONED ZONE 
FOR AN EXTERIOR WALL EXPOSED TO AMBIENT 


ORIENTATION 

ZONE 

1 

2 


ORIENTATION 

ZONE 

1 

2 


♦7* GLASS AREA 
ORIENTATION 
ZONE 
1 
2 


s 

Sw 

w 

NW 

S£ 

E 

ne 

N 

ROOF 

3 ; 

0 

. 3 

0 

0 

3 

2 

3 

3 

3 

0 

3 

0 

0 

3 

0 

2 

3 

* UNSHADED 

area of wall 






3 

sw 

w 

NW 

SE 

E 

NE 

N 

ROOF 

1 .0 

1,0 

no 

Uo 

1*0 

no 

no 

no 
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1.0 

V*Q 

1*0 

no 

no 

no 

no 

no 

IN so. 
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Fig. 4.1 


Input Data from 
Echo Subroutine 


schedule 


** OCCUPANCY LOAD 
DAY 


ZONE 

TYPE 

l 

2 

3 4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

1 

» 

2 

2 

1 : 

1 ' 
a 

i 

a 

7.0 
7*0 
.0 
• 0 

7*0 
7.0 
• 0 
.0 

7.0 7.0 

7.0 7.0 

• 0 .0 
a 0 * 0 

7.0 
7.0 
• 0 

'.0 

7*0 

7.0 

.0 

.0 

7.0 
7.0 
«. 0 
.0 

7.0 

7.0 

4.0 
.0 

7.0 

7.0 

4.0 
0 0 

7.0 

7.0 

4.0 

• 0 

7.0 

7.0 

4.0 
.0 

7.0 

7.0 

4.0 

.0 

7.0 

7.0 

4.0 

.0 

7.0 

7.0 

4.0 

*0 

7.0 

7.0 

4.0 
.0 

7.0 

7.0 

4.0 
.0 

7.0 

7.0 
.0 

.0 

7.0 

7.0 

o 0 
♦ 0 

T e 0 

7.0 

.0 

.0 

7.0 
7.0 
.0 
0 0 

7.0 

7.0 

.0 

.0 

7.0 

7.0 

.0 

B 0 

7.0 

7.0 
.0 

.0 

7.0 

7.0 

,0 

.0 

7* FLUORESCENT 

LIGHT 

IN KW 
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ZONE 

Type 

1 

2 

3 4 

5 

. 6 

7 

6 

9 

10 

It 
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13 

14 

15 

16 

17 

16 

19 

20 

21 

22 

23 

24 
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13.0 

12.0 
3.0 
3.0 


13.0 13.0 
13.0 13.0 


lii 1 1 1 1 !! I! 1 1 1 1 1 1 1 1 1 


3.0 

3.0 


3.0 

3.0 


1 3© 0 
13.0 
3.0 
3.0 


13.0 13.0 13.0 
U.o 13.0 13.0 
3.0 
3.0 


3.0 

3.0 


3.0 

3.0 


13.0 

13.0 

3.0 

3.0 


** INCANDESCENT LIGHT IN KW 


DAY 

ZONE TYPE 


1 1 

1 2 

Z t 

Z 2 


.0 

a 0 

.0 


.0 

.0 

.0 

.0 


.0 

.0 

.0 

, 0 


.0 

.0 

.0 

.0 


** ELECTRICAL EQUIPMENT LOAD IN KW 


DAY 

ZONE TYPE 


1 

1 

2 

2 


99.4 

3.0 

3.0 


3.0 

3.0 


3.0 

3.0 


3.0 

3.0 


** MECHANICAL EQUIPMENT LOAD IN KW 


DAY 

ZONE TYPE 


1 1 

1 2 

2 l 

2 2 


. (1 
.0 

.0 

.0 


,0 

*0 


.0 

.0 


,0 

.0 

.0 

.0 


.0 

.0 

.0 

.0 


5 

6 

? 

6 

9 

10 

u 

12 

• 0 

oO 

.0 

.0 

® 0 

.0 

.0 

.4 

*0 

.0 

.0 

.0 

• 0 

.0 

• 0 

.. 

*0 

■ 0 

,1 

.1 

9 $ 

.1 

.1 


.0 

• 0 

.0 

.0 

.0 

.0 

.0 

. i 1 

KW 








5 

6 

7 

8 

9 

to 

11 

12 

>„4 

99.4 

99.4 

99.4 

99*4 

99.4 

99.4 

99. 

i,4 

99. a 

99.4 

99,4 

99.4 

99 o 4 

99.4 

99. 

1,0 

3.0 

3.3 

3.3 

3.3 

3.3 

3*3 

3. 

>.0 

3.0 

3,0 

3.0 

3 oO 

3.0 

3.0 

3 o 

KW 








5 

6 

'*■ 7 

8 

9 

10 

11 

42 

*0 

.0 

.0 

.0 

.0 

.0 

eO 

B 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

0 

• 0 


.0 

.0 

9 0 

*0 

.0 

• 

■■•0 

.0 

.0 

.0 

« 0 

a 0 

>0 

« 


MACROZONE 


VOLUME OF ZONE IN CU. FT. 

SUMMER INSIDE DESIGN CONDITION (DEG F) 
WINTER JNSIDE DESIGN CONDITION (DEG F) 
MEAT TRANSFER COEFF FOR WALLS 
HEAT TRANSFER COEFF FDR ROOFS 


96960,0 22900.0 


78.00 

66.00 
.07 
.08 


76.00 

66.00 
.07 
.OB 


^t^^^t^*^****^*^**^**^****^******^**^ HANDLER DATA 

1 ** AIR HANDLER TYPE 


airmandle* no. 

ZONE 

1 

2 


1 


2 

7 


j ** AIR handler schedule WITH TIME clock Fig. 4 J (Continuation) 

j . i 

; DAY 


m* 


13 


14 


15 16 


17 16 19 20 21 


.0 

.0 

.1 

.0 


.0 

.0 


.0 


.0 

.0 

.1 

.0 


.0 

.0 

oi 


*0 

.0 


.0 

.0 

.0 

.0 


IS 14 


15 16 17 18 


3,3 

3.0 


3,3 

3,0 


3,3 

3.0 


3.3 3.0 

3.0 3,0 


13 l« 15 


16 17 18 


.0 

,0 
• 0 
.0 


.0 

.0 


.0 

.0 


oO 

.0 

.0 

,0 


,0 

.0 

,0 

.0 


.0 

.0 


« 0 

.0 


10 


.0 

.0 

,0 


.0 

.0 

.0 

.0 


.0 

.0 

,0 

.0 


19 20 21 


3.0 

3.0 


3.0 

3.0 


3.0 

3.0 


19 20 21 


.0 

.0 

oO . 

.0 


.0 

.0 

.0 

.0 


,0 

.0 

.0 

.0 


e 


22 23 24 


.0 

.0 

,0 

.0 


.0 

.0 


.0 
» 0 


.0 

.0 

.0 

.0 


22 23 24 


3.0 

3.0 


3.0 

3.0 


3.0 

3.0 


3.0 

3.0 


trt 


22 23 


.0 

,0 


.0 
0 0 


.0 
.0 
0 0 
.0 


.0 

.0 

.0 

..0 


24 

.0 


,0 

.0 

.0 
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Si 

t 


It 

| AH 

TVPE 

1 

2 

3 

a 

5 

6 

7 

8 

9 

10 

1 

l 

ON 

QM 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

I 

2 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

a 

1 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

2 

2 

; ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 


?* air QUANTITY DISTRIBUTION IN CFM 

AIRHANDLER NQ. 12 3 6 56 

ZONE 

1 23000.0 25600.0 

2 .0 2875,0 


AIRHANDLER NQ, 1 2 3 6 5 

COLO OECK SETPOINT 60,00 55,00 

HOT OcCK SETPOINT <?5,00 <55.00 

PERCENT VFNT ATR .05 .17 

OUTSIDE AIR ECONOMIZER NO NO 

TYPE OF HEATING IN AH ELEC ELEC 


**# 4 ^** ******************** Y************** COMPRESSOR 
** COHPRESSOR/AIRHANDLER distribution 

air handler no. CONNECTED to 1 COMPRESSOR 1 0 0 

AIR HANDLER NO. CONNECTED TO 2 COMPRESSOR 2 0 0 


11 

12 

13 

14 

IS 

16 

17 

10 

19 

20 

21 

22 

23 

24 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 

ON 


7 


a 

9 


10 









6 78 9 10 


DATA ************************************************************ 


0 0 0 0 0 0 0 
0 0 0 0 0 0 0 


SIZE OF CONDENSERS AND HEAT PUMp 

COMPRESSOR NO. 12 3 <1 5 6 7 0 9 10 

FIRST CONDENSER TONNAGE 56,00 -62.00 ' • > - 

2ND CONDENSER TONNAGE 56.00 62,00 

SIZE OF HEAT PUMP(BTU/H) ,0 .0 

***** **** *********** ********** ***** ******* ****************************************************** ************* ******************** 
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ECP PROGRAM 

13592mC{l) *WMELI$T/G»86-NEW 


S5HANOLR 

AH*l »7*0*7,2* SETPT3«60,,95,*55.*95.» 

SIZE*S6. *56. *Q, *92. *02, *0 ,, . 

WEATERsl0*O» KLIP1T*2* ZLIMIT*2* ACCERYn2*08. * 2*100* » 2*200. *2*168, t 
SLtVG =, G**56t * ALFA«.05*.17*8*O.* «AXH0»12* 

ECON=10*0* KFBRA*,33«7*0.* 

ZCFH=23000. *7*0. *25000. *2875,* 

COPRE5»l*2* CLI M IT=2» 
tCNTRU*l * 

5SINPUT1 AWAl.828O.*0,*800,*0,*0, *300, *1380, *1510, *4560,* 

Ah AL (1 *21*1035* *0 • * 200 « *0, * 0, * 196* * 0* * 1770. *2290. * 

AGLASsU. * 6*0 « * 1 96* * 0 , * 1 10 « • 0*0* *0, *3*0, * 

ADJs3 * O *3* 0* 0*3*2* 3* 3 *3*0* 3* 0 * 0*3* 0*2*3* 

VOL=9&960. *22900, * UR* ,0657* .0657*6*0 , * 

U#« .0755 * « 075 5 1 6*0 » * PHIRF=2*1 .700*6*0. * 

PHIhl =2*2,962*6*0.* VRFa2*. 0378*6*0,* 

’ VwU«2*,0t Bl*6*0* * ABS0RTa«62* 

TSUMe2*7fl 9*6*0 , * TWIN*2*68, * 6*0 • » 

N0Ps08*7 » * 6*0 , *1 0*0 • *8*0 » 1 20*0»* • 

K It GUT* 8 8*0, *6*0, *10*0.1* 8* 0,*20*0»* 

KFLGHTcfe* J 3. * 0*16,5*6*20,5 * 2*17* * 6*13* * 

KFLGKTf 1*2)=6* 13, *u*l 6.5* 6*20,5*2*17, *6*13,* 

KFLGHT Cl *31=6*3, ♦ 10*6,9*8*3. *20*3, * 

KEGUPE=?0*99.iJ» 20*99.0 s 

KEGUPEC 1*31=6*3,0* 10*3.3*8*3. *20*3,* 

K£QUPMa96*0.0* 

*JECHQ=1 

SSEMD 


CPUl.503 CTPJ.086 SUPSj 17.177 
*XflT YIC.ECPA8S»VA 


e> A DP * P- VI.C . ECP 2/WE ATHER 


#AOD*P : VICiiNAHELIST/G-BAaNEH 


Fig. 4.1 (Continuation) 
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I 

i E ZP PROGRAM 


: HO ZONE RAY* hr infiltn 

TYPE CBTU) 


J*N 11 1 - 52669 . 

JAM 1 12 - 52669 , 

JAN 1 1 3 - 5 ? 669 , 

JAN 11 H - 50550 , 

JAN l 1 5 - 5 <lS 50 » 

JAN 11 6 - 5 U 550 , 

;JAN 1 1 7 -56431 * 

sJJAH 11 8 - 56931 , 

‘JAN 11 9 - 52669 , 

i I J*N 1 1 10 - 95165 , 

i.| l! J A N i 1 11 - 39502 , 

I JAN 11 12 - 33858 , 

JAN 1 1 13 - 31977 , 

[ JAN 1 1 10 -28215, 

j- ’ jf JAN 1 1 15 -28215, 


!r i' JAN 

1 

l 

16 

-30096, 

? r JAN 

i 

i 

17 

-33658, 

‘i J A N 

i 

i 

ta 

-39503, 

* ^ JAN 

l 

i 

19 

-97036. 

i JAN 

i 

l 

20 

-50780, 

. r JAN 

i 

l 

21 

-50788, 

if jam 

l 

i 

22 

-53669, 

■ i JAN 

f] _ 

i 

i 

23 

—52669, 

f JAN 

- : 1 -:l 

i 

i 

24 

-53669, 

i . y j am 

i 

2 

1 

-53669, 

yJAN 
- ] JAN 

i 

2 

2 

-53669, 

t 

2 

3 

-52669, 

| JAM 
JAM 

i 

2 

4 

•50550, 

i 

2 

S 

-50550 , 

JAN 

1 

2 

6 

-59550, 

JAN 

i 

2 

7 

-56031, 

JAN 

l 

2 

a 

-56U31. 

| JAN 

t 

2 

9 

-52669, 

JJAN 

i 

2 

' 10 

-05105, 

; JAN 

l 

2 

n 

-39502, 

• * | JAN 

i 

2 

12 

-33850, 

JAN 

i 

2 

13 

-31977, 

JAN 

l 

2 

14 

-38315. 

JAN 

l 

2 

IS 

-38315, 

| JAN 

l 

2 

16 

-30096, 

jj AN 

i 

5 

17 

-33658. 

|JAN 

i 

2 

ia 

-3950?. 

l JAN 

l 

- 2 

19 

-07036. 

[JAN 

l 

2 

20 

-50788, 

JAN 

i 

2 

21 

-50768, 

| JAN , 

i 

2 

22 

-53669. 

j JAN 

i 

2 

23 

-53669. 

. j JAN 

i 

2 

24 

-53b69, 


GLASS 

TRANSMITN 

LIGHT 

POEPLE 

EQUIPMENT 

NET HEAT 

(STU) 

CBTU) 

CBTU) 

(BTU) 

CBTU) 

(BTU) 

•6328. 

-9309, 

55058. 

3030. 

339253. 

338390, 

*6328* 

-10160. 

55058, 

2030. 

339352. 

337583. 

-6328. 

-10988, 

55058. 

2030. 

339352, 

336755. 

•6554, 

-11778, 

55058, 

3030. 

339352. 

323859. 

• 6554 , 

-13070. 

55058. 

2030. 

339?52. 

333163. 

• 6554 « 

-13030, 

55058, 

2030, 

339353, 

323607, 

*678o. 

-13007, 

70369. 

2030. 

339353. 

335053. 

- 4929 , 

-13501, 

70389. 

3030, 

339353. 

33673 J . 

• 2946. 

-13539, 

70389. 

3030 . 

339353. 

303066, 

* 1 ! 0 1 , 

-13380, 

70389. 

2030, 

339353, 

353102. 

172. 

-13033. 

87053. 

2030. 

339252. 

376572. 

1049, 

-13310, 

87053. 

2030, 

339352. 

363708. 

1 0 7 6 * 

-1 1 079. 

07053. 

3030. 

339252. 

386350. 

933* 

-10668, 

87053. 

203 0. 

339352, 

390780, 

-60, 

-900a, 

87053. 

2030. 

339353. 

390620. 

•1765, 

•9051. 

87053. 

2030. 

339353, 

387633. 

-4068 « 

-8355, 

73533. 

3030. 

33.9353, 

367523. 

•4746* 

-7799, 

73533, 

3030. 

339353. 

361750, 

*5650. 

-7031. 

55058. 

3030. 

339253. 

336603, 

“61 02 a 

-7308. 

55058. 

3030. 

339353. 

333603. 

*61 02# 

-7390, 

55058. 

3030. 

339353. 

333561 . 

“6328. 

-7505. 

55058. 

3030. 

329353. 

330199. 

•6320 • 

-7996 , 

55058. 

3030. 

339353. 

329708. 

“6320 « 

-8611, 

55058. 

3030. 

339253, 

329133. 

•6320* 

-9309. 

55058. 

3030. 

339353. 

338390, 

“6328. 

-10160, 

55058. 

2U30. 

339253. 

337503. 

“6328 . 

-10908, 

55058. 

3030. 

339353. 

336 75S. 

-6554, 

•11778, 

55058. 

2030. 

339353, 

333859. 

“6554, 

-12070, 

55058. 

2030. 

339352. 

333163. 

•6554 a 

*13030. 

55058. 

3030. 

339353. 

322607. 

“6700* 

•13007. 

70389. 

3030. 

339352, 

335053. 

“4929 • 

-13501, 

70389. 

3030. 

339252, 

3 36731. 

“2998* 

-13539, 

70389. 

2030. 

339253. 

302066, 

“1101* 

-13380, 

70389. 

'2 030. 

339352, 

352102. 

172# 

-13833. 

87053. 

2030. 

339352. 

376572. 

1 049, 

-13318, 

87053. 

3030. 

339353, 

383708, 

1076, 

-1 1079. 

87053. 

3030. 

339353. 

386350, 

9 33. 

-10668. 

87053. 

3030. 

339353. 

390780. 

• 60, 

-9800, 

87053. 

3030. 

339353. 

390620. 

“1 765, 

-9051. 

87453. 

3030. 

339352. 

387823, 

“4060 « 

-8355. 

73533, 

3030. 

339252. 

367533* 

“4746, 

-7799. 

72533. 

2030, 

339352. 

361758, 

“5650* 

-7021. 

55058. 

2030. 

339352. 

336603. 

-6102, 

-7306. 

55058. 

3030. 

339252. 

332603, 
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Fig. 4.2 Hourly, Daily, and Monthly Zone Load Calculations 
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Fig. 4.3 Hourly, Daily, and Monthly Air-Handler Loads 
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Fig. 4,4 Hourly, Daily, and Monthly Compressor Loads 
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Fig. 4.5 Hourly, dally, and monthly watt-hour meter. 
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Fig. 4.7 Monthly Energy Consumption and Cost 




SECTION V . 
SEQUENCE OF CALCULATION OF 
THE MAIN PROGRAM 



Description 

The main program of ECP cal cul ates the hourly heat gain or loss to 
each zone within a building according to the building architecture 
and structure details, local weather, position of the sun and schedul 
mg of equipment^ lights and people, etc. The heat loss/gain of the 
various zones determines the requirements on the air handlers or 
fan-coi 1 units . From these requi rements the energy consumption 
(electrical or thermal) of the air conditioning primary equipment 
is calculated. Moreover, the electric energy consumption due to 
lights, electronic and mechanical equipment and other auxiliaries 
are added to the computed energy consumption by the primary air 
conditioning equipment to give the total energy consumption of the 
building. The latter is used for comparison with actual readings 
from watt-hour meters to determine the accuracy of the simulation 
process. 


The.net heat gain to a zone calculated in the main program is the 
final result of augmenting direct solar radiation, infiltration, 
heat transmission through glass and walls and internal heat sources 
such, as lights, electronic/mechanical equipment and people. 

The main assumptions used in the main program are listed as follows: 

(1) The heat gain or loss to or from a zone is assumed totally 
sensible with negligible latent loads. The effects of outside 
air humidity changes are neglected. 

(2) Scheduling of people, lights and electronic/mechanical equip- 
ment (other than air conditioning equipment) remains the same 
for each month throughout the year. Only variations in sche- 
dunng due to day type (weekday, weekend or holiday) are 
considered. 


(3) The number of day type (2) augmenting holidays and weekends 
per year is taken as 114 days assuming 10 holidays per year. 

The average number of day type (2) per month is 114/12 or 9.5. 

• a !u rag P ni i mber of d W s P er month for day type (1) (weekdays) 
will then be (365 - 114)/12 or 20.9. K V ■ J 

(4) The sources of heat gain to the zone due to electrical, mechani- 
cal equipment, incandescent and fluorescent liqhts, and people, 
are all assumed 10055 convective to the air stream with no 
radiative portions. 


A complete _ listing of the program and all of the subroutines are 
presented in Appendix A. A flow chart of the main program is presented in 
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Figure 5-1. (Continuation) 
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Figure 5-1. (Continuation) 
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Figure 5-1. (Continuation) 
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COMPUTE AQHEL (JJ, KNUM) 

Z ZH 
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Figure 5-1. (Continuation) 
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Figure 5-1. (Continuation) 
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Figure 5-1, (Continuation) 
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5^.2 Computation Procedure 


1. 


Xthe’^ r ?th^i n an AsS^ Le1?^ n C3 [ , S .° Url SUbr ° Uti " e 

P = MO* n 


2 . 


3. 


4. 


DEC = [0.2833 - 23 . 1 88*C0S (P)-0 . 1 5*C0S (2 . *P ) -0. 211 *S IN ( P )+0 . ! 1 S5* 
SrN( 2 .*P]* */i80. 

A - [368 . 5+23 . 98*CQS ( P ) -1 .083*C0S(2.*P)H.893*SIN(P)-.722*SIN(2.*P)j 

B “ 1171 -S8-33. 08 *CO s (P)+ 3. 0a*C0S(2.*P)-l 0. 34*SIN (P) +1 . 3*SIfJ (2.*P)J * 10 -3 

C [DO. 333-39. 6 3 *CDS{'P)+6.83*COS(2.*P )-10.651*SIN(P)+3.17*SIN(2.*p)]x10“^ 

Compute Infiltration heat gain/loss (QIHF) assuming 1.2 air changes per 


QINF = VOL*. 02(T0A-TRA)*MLT 

Call [SOLAR] and [TRANS] subroutines to determine heat gain through 
walls and roofs and glass areas QWAL and QGLAS 

Compute LPOWER, EPOWER, QLIQHT, QNOP, QEQUP and QSUM (on an hourly 
basis) for each zone: y 


5. 



24 


LPOWER = 

E 

i=l 

24 

s 

KILGHT(i) + KFLGHT(i) 

EPOWER = 

KEQUPE(i) + KEQUPM(i) 


i=l 


QLIGHT = 

KILGHT*341 3 . +KFLGHT*4266 


( ?raTba?lI]SsT SCent bUlbS d1SS1 ' Pate 2S% m0re ene ™ 


QNOP = N0P*QPp 


QEQUP 


QSUM 


KEQUPE*341 3 . 0+KEQUPM*34 1 . 3 


(assuming that mechanical 
10% of its power in the 


equipment are 
form of heat) 


dissipating 


QGLAS + QWAL + QINF + OLIGHT + QNOP + QEQUP 


Compute total cfmfor each zone when fed by more than air handler. 

ZCFM (total) = £ Zcfm(i) 
i=l 
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6. Compute temperature of supply air to zone 
TSAZ = TRA - QSUM/ZCFM (TOTAL ) *MLT 

7. Compute the supply air temperature for two-level rooms with air 
handlers feeding the comfort air only, plenum air only, or both. 
Compute the maximum and minimum values of (TSAZ) for each zone. 

8. Compute the average temperature of return air (TRAA) associated 
with a given air handler. Averaging is done over all zones that 
are fed by the air handler. 

ZLIMIT 

£ TRA(i )ZCFM(i ) 

i=l 

TRAA = 

ZLIMIT 

£ ZCFM(i) 

i=l 


9. Compute mixed air temperature (TMA) based on the outside air 
economizer control schemes, and the return air temperature. 

With no outside air economizer 

TMA = ALFA*T0A+(1 -ALFA)*TRAA 

10. With Barber Coleman (DIG! -DAP) outside air economizer, the 
outside air and return air dampers are positioned to vary 
automatically the cold deck set point temperature according 
to the zone requiring the most cooling. The hot deck set ' 
point is automatically adjusted to match the zone that requires 
the most heating. 

i) Cooling mode (at least one zone is in cooling mode) when 
TRAA ^ HMINAH 


ALFA 



9 IF HMINAH =£ TOA 

Dampers will be set at minimum position. The hot deck 
set point will be set at the supply air temperature for 
the zone requiring the most heating 

HSETPT = HMAXAH, 

ALFA = minimum value 

TMA « ALFA*T0A+(1 -ALFA)*TRAA 
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• IF TOA < HMINAH 

Dampers will be automatically adjusted to vary the value 
of ALFA such that 

IMA = HMINAH 

CSETPT = HMINAH (cooling equipment are off) 

HSETPT = HMAXAH (heating will be only off for a 

single zone) 

and the minimum value allowed for HSETPT is 60°F. 
ii) Heating mode: when all zones in heating mode. 

HMINAH > TRAA 

ALFA 


« IF HMINAH < TOA TOA 



TRAA 


Lx 


HMINAH 




TMA = HMINAH 

CSETPT = TMA (cooling is off for all zones) 
HSETPT = HMAXAH 

e ELSE IF TOA ^ HMINAH 

TMA = ALFA*T0A+(1-ALFA)*TRAA 
ALFA = minimum value 

CSETPT = TMA (cooling is off for all zones) 
HSETPT = HMAXAH 

11. With Honeywell Type Outside Air Economizer 

a) IF TOA s TRAA 

TMA = ALFA*TOA+(1 -ALFA)*TRAA 

b) IF TOA =s TRAA and TOA 5. CSETPT 
cooling is off 

TMA = CSETPT 

ALFA = ( CSETPT -TRAA) /(TOA-TRAA) 

c) IF TOA < TRAA and TOA > CSETPT 
' ALFA = 1.0 



CSETPT TRAA TOA 
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12. Call appropriate air handler subroutine to determine QHEL, QCC» 
QHBOL, QHHP, TROOM 

13. Compute AQCC, AQHEL, AQHHP, AQHBOL sum of loads for 24 hours and 

all air handlers. Also calculate for each zone ZQCC, ZQHHP, ZQHBOL 
and ZQHEL. 


24 

10 



24 


JO 

O 

o 

II 

£ 

0=1 

QCC(f,o) 

ZQCC 

£ 

i-1 

QCC(i) 

24 

10 



24 


AQHEL = X 

£ 

QHEL(1.J) , 

ZQHEL = 

£ 

QHEL(i) 

i=1 

j-i 



i=l 

24 


24 

10 




AQHHP = X 

£ 


ZQHHP = 

E 

QHHP(i) 

i=l 

o‘=1 



i=l 


24 

10 



24 


AQHBOL = £ 

£ 

QHBOL (i ,j) , 

ZQHBOL = 

£ 

QHBOL (i) 

i=l 

0=1 



i=i 



14. Call [COP] subroutine to determine coefficient of performance of air 
conditioning equipment. Sum loads for Daytype 1 and Daytype 2 in 
SUMBL1, SUMBL2, SUMCC1, SUMCC2, SUMHLT, SUMHL2, SUMHP1 and SUMHP2. 

15. Compute TTLAC1 and TTLAC 2 (sum of accessories for daytype one and 
daytype two) 

5 

TTLAC! - £ ACCERY(i) (daytype 1) 

i=l 

5 

TTLAC2 = X ACCERY(i) (daytype 2) 

i=l 

16. Compute total load (sum over hour and zones) and multiply by daytype 
factor and determine total monthly energy consumption (FINMON) matrix. 

17. Compute design conditions DEZCFM by: 

DEZCFM = maximum of / \ and | HINQ |; 

\ 23*MLT / 15*MLT 
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SECTION VI 
SOLAR SUBROUTINE 


6.1 Description 

The [SOLAR] subroutine determines the position of the sujvand j? a l£ U ]niar 
the different components (direct, diffuse and ground reflected) of solar 

radiation intensity incident on the outer surface of a ..^^deDe ndfon 
The subroutine is composed of three parts: the P^ f d ^av and the 

the day of the year, the second part depends on the time ot day and 

third part depends on the surface orientation. 

The main assumptions used in the calculations are as follows. 


(1) 

U) 

(3) 


Ground reflectivity [GRREFL] is 0.2. 

Clearness number is 1.0. Clearness number is u multiplier of the 
direct normal intensity (ION) which accounts for i.he effect of 
dry sky, high elevation, season and type of industry in the 
neighbourhood of the locality. 

The local solar time is assumed equal to the local civil time. 
The longitude correction (4 min/degree difference between local 
longitude and the longitude of the standard time meridian for 
that locality) and the equation of time (which is in the range 

^ . - . • . 1 1 -l* 1 


of 


IU louwi * i 

t 14 minutes) are neglected. 


Fig. 6.1 illustrates the solar and wall angles used in this subroutine. 
The flow chart is sketched in Fig. 6.2. 

6.2 List of Variable Names 

The following is an alphabetical list of variables used in the [SOUR] 
subroutine. 


All angles are measured in radians. 

CCF Cloud cover factor. CCF is the ratio of real solar irradiation 
to the clear day formula given by ASHRAE. 

COSTH Cosine of the angle (THETA) measured between the normal to the 
wall and the sun's ray. 


HA 

HALMT 

IDN 

LAT 


Hour angle measured from solar noon. 

Hour Angle Limit. The angle at which the sun rises or sets. 


Direct Normal Intensity of the sun's energy received on a surface 
perpendicular to the sun's rays. 


Latitude of the site (positive for a location north of the 
equator; negative for a location south of the equator). 
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MO Month 

SALT Solar altitude angle. The angle between the sun's ray and 

the projection of the sun's ray on a horizontal surface. 

SAZM Solar azimuth angle. The angle between the south direction 

and the projection of the sun's ray on the horizontal surface. 

SI Total Solar Irradiation (directs diffuse and ground reflected) 

on a wall for the given day of the month, hour of the day and 
surface orientation. 

VSG View (geometric) factor. The fraction of the energy reflected 
from the ground which reaches the wall. 

WAZM Wall azimuth angle. The angle between the projection of the 
normal to the wall on the horizontal plane and the direction 
south (positive for an angle west of south) according to the 
following table: 


WAZM +180 -135 -90 -45 0 45 90 135 

ORIENTATION N NE E SE S $W W NW 


WSAZM Wall-Solar Azimuth Angle. The angle between the projection of 
the normal to the wall on the horizontal plane and the projec- 
tion of the sun's ray on the horizontal plane. 

WT Wall tilt is the angle between the wall and the horizontal 
surface. 

6.3 Calculation Procedure 

(1) Calculate the hour angle (HA). It is positive in the morning and 
negative in the afternoon. 

HA = (12 - HOUR) 15 radians 

W~ 

(2) If the hour angle is smaller than the hour angle limit of sunrise 
or greater than the hour angle limit of sunset, the solar intensity 
is zero. 

HALMT = Cos“^{-0.7 tan (DEC)) radians 

IFjHA)>HALMT Than SI - Zero 
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/oi rai emulate solar altitude* solar azimuth and wall-solar azimuth 
angles and cosine the angle of incidence. The declination 
angle (DEC) is previously determined in the main program, 
Section 5.2. 


SALT = SIlT* [C0S(LAT)C0S(DEC)C0S(HA)+SIN(LAT)SIN(DEC)1 
SAZM = SIN - ^ t COS (DEC) SIN (HA) /COS (SALT) ] 

WSAZM = SAZM+ [WAZM (HA/ | HA j ) ] 

COSTH = [COS (SALT ) COS (WSAZM)SIN (WT ) ]+ [SIN (SALT)COS (WT) ] 


radian 

radian 

radian 


m Calculate direct normal solar radiation using the values of the 

(4) constants A b! and C previously calculated in the main program. 

Section 5.2. 

IDN = A/exp(B/Sin(SALT)) Btu/hr.ft 2 

(5) Calculate the view factor from wall surface to ground 

VSG = (1 - Cos (WT) )/2 

(6) Calculate total solar irradiation (SI) 

SI = IDn|c0STH +[C*( 1 ~VSG)]+GRREFL*VSG[C + Sin (SALT) Btu/hr.ft 

(7) For different wall orientations, the index (<3) is given such that 


Index J 

8 

7 


6 5 

1 

2 

v 3 

Orientation 

N 

HE 


E SE 

$ 

SW 

W 

WAZM angle 

±180 

-135 


-90 -45 

0 

45 

90 

or analytically 







for J 5* 4 


WAZM = 

- 

¥■ CM) 




J ^ 4 


WAZM = 

PI 

4“ 

(J-n 





4 

NW 

135 


( 8 ) 


Calculate the heat transmitted (QS) through glass both directly 
by solar gain and indirectly by warm outsiae airs 

QS * (SI*TAU*AGLAS*CCF)+ [UGLASS*AGLAS (TOA-TRA) ] 

where 

TAU: glass transmissivity 

UGLASS: glass heat transfer coefficient, Btu/hr.ft °F 

am surface area of glass, ft 
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SECTION VII 
TRANS SUBROUTINE 


7.1 Description 


The ( TRANS ) subroutine calculates the rate of heat transfer from the 
external environment through each exterior or interior wall and roof 
of a zone. Input Data include the construction details, ( UNPHI ) sub- 
program output, solar irradiation, outside air temperature, and the 
temperature of adjacent zones. 

For exterior walls, the sol -air temperature method or Total Equiva- 
lent Temperature Difference method (TETD) with periodic (transient) 
heat flow through homogeneous walls is used. The sol -air temperature 
combines the effects of direct solar incidence and variable outside 
air temperature ds shown in Fig. 7.1. It uses Fourier series expan- 
sion (harmonic analysis) where harmonics higher than first order are 
neglected. The analysis considers the time-wise change of thermal 
environment and the thermal storage in wall material. See Reference 

(4) for more details. A flow chart is provided in Fig. 7.2. 

For interior walls, quasi-steady state heat transmission calculations 
are used. The U-Factors calculated in ( DVPHI ) subprogram are entered 
to ( TRANS } subroutine as input data. 

The main assumptions used in the sol-air temperature method and 
{.TRANS ) subroutine are: 

(1) Walls or roofs have an infinite height, length (compared to the 
thickness) and the heat transfer is one dimensional . 

(2) Walls or roofs are homogeneous with material properties (conduc- 
tivity, specific heat, density and thermal diffusivity) that are 
constant with temperature. For walls or roofs of multilayer 
construction, average properties were calculated. 

(3) Convective heat transfer coefficients on the Inside and outside 
boundary layers of the wall surface are uniform and constant 
with temperature. 

(4) The solar absorptivity of the outside wall surface is independent 
of the ray's angle of incidence and is constant with temperature. 

(5) The variation of the outdoor air temperature and the total solar 
irradiation is periodic and identical with time on consecutive 
days. 

(6) The internal zone thermal environment is unchanged from day to day. 
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7.2 Li st of Vari abl es 
ABSORT (or ALPHA) 
ADJ 

H 

HO 

M 

N 

PHI 

QTRAUN 

QTRANS 

SANGLE 

SHADE 

SI 

TE 

TEM 

TNEXT 

TOA1 

TOA 

U 

V 


Solar absorptivity, for exterior walls and roofs. 

Flag for adjacent zone condition. 

(ADJ can be 0, 1 , 2, or 3) 

Hour 

Heat transfer coefficient for outside wall surface. 
Btu/hr. ft2op, 

Fourier coefficient for (TE) expansion. 

Fourier coefficient for (TE) expansion 
Phase angle (or hour) for the heat transfer QTRAUN 
Heat transmission rate per unit-area, Btu/hr. ft 2 
Total heat transmission through a zone boundary, Btu/hr 
Phase angle for (TE) expression. 

Wall shade factor - unshaded area/total wall area 
Total solar radiation, Btu/hr. ft 2 

Sol -air temperature, op. 

Mean sol -air temperature, °F. 

Next neighbour temperature for ADJ = 1 s °P. 

Neighbour zone temperature for ADJ =2 op. 

Outside air temperature, °F. 

Overall heat transfer coefficient (mean), Btu/hr. ft^°F. 

OyeraH heat transfer coefficient (amplitude), 

Btu/hr. ft 2 QF. 
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7.3 Computation Procedure 

( TRANS ) cal cul ates the heat transmission per unit area (QTRAUN) through 
a wall depending on the conditions of adjacent zones; 

(1) If ADJ=0, i.e., no wall or only a partition separating two air 

conditioned zones of the same temperature, then: 

QTRAUIH) Btu/hr.ft 2 

(2) If ADJ=1 , i.e., an interior wall separating the zone from an 
adjacent conditioned zone at constant and different air tempera- 
ture (TNEXT): 

QTRAUN * (TNEXT-TRA)*UWALL Btu/hr.ft 2 

(3) If ADJ=2, i.e., an interior wall separating the zone from an 
adjacent unconditioned zone, typical of mechanical rooms 

QTRAUN - (T0A1 -TRA)*UWALL Btu/hr.ft 2 

T0A1 = TQA IF TOA > 70 

= 70 IF TOA < 70 

(4) If ADJ=3, i.e., an exterior wall , 

a) Calculate sol -air temperature 

TE=TOA+(ABSORT*SI*SHADE)/HO °F 

b) Expand the temperature (TE) by Fourier Series with 24-hours 
period, in the form 

TE(H)=TEM+M*C0S N*Sin 

at any hour (H) 

The fourier expansion coefficients are as follows: 

24 

H * STE(1)*C0S( »r.1/12)/12. ' 

1=1 

24 

N = T E (i)*SIN{*i /12)/12 

iV 

TEM « £ TE(i)/24 
i=l 
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(c) Rewrite the above iE expression in the compact form 

jr H iSANGLB 1 

TF~ J 


^M 2 +N 2 *C0Sj[ 


TE(H) = TEM + 
where 

SANGLE = ARCTAN | N/M | 

If N<0 and MX) then SANGLE =2* - SANGLE 
If N<0 and M^O then SANGLE = + SANGLE 

If N>0 and M^O then SANGLE « * - SANGLE 
(d) Calculate the transient heat flow per unit area 

QTRAUN(H) = 


U*(TEM - TRA) | + | V.V0? + N 2 )*C0S(ir H/12 - SANGLE - P 

Btu/hr ft 2 

The values of U, V, and PHI are given by ( UVPHI ) subprogram. 

5. Calculate the total heat transmission through the walls and roof of a 
boundary ' 

9 

QTRANS =V QTRAUN(i)*AWALL(i) 


The zone boundary is made up of 9 possible orientations. 


dJ 

zone 
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SECTION VIII 

AIR HANDLER - TYPE SUBROUTINES 


8.1 General Assumptions 

There are 9 subroutines available in ECP which characterize the different 
types of air-handler units (fan-coil units). The subroutines are as follows: 

KEQ1 Single cold duct with terminal reheat. 

KEQ2 Dual duct, multizone with mixing boxes, or single duct, multizone 
with mixing at the air handler. 

KEQ3 Single cold duct with bypass and terminal reheat. 

KEQ4 Heat pump with bypass control or single duct with alternately 
operating cooling and heating coils and bypass control. 

KEQ5 Two-level room with cold plenum air and comfort air modulated by 
terminal reheat. 

KEQ6 Two-level room with cold plenum air and comfort sir modulated by 
mixing cold air and bypassed mixed air and terminal reheat. 

KEQ7 Two-level room with cold plenum air and comfort air modulated by 
mixing cold and hot decks. 

KEQ8 Single cold duct with fixed, bypassed return air and terminal reheat. 

KEQ9 Two-level room with constant volume cold plenum air and variable 
volume comfort air at fixed hot deck temperature. 

The main assumptions of the air handler subroutines are as follows: 

1. The heating/cooling loads are assumed predominately sensible with 
negligible latent loads; the effects of outside air humidity changes 
are neglected. 

2. Quasi-steady state conditions prevail for all heat transfer calculations 

3. The air-handler coils are ideal, i.s., they provide the zone 
heating/cooling as needed without heat losses. 

4. The ducts are adiabatic, i.e. , no heat exchange occurs between the 
ducts and their surroundings. 

5. All air dampers are functioning according to their specifications 
with no leakage or malfunctions. 

6. Air temperature rise due to energy dissipated by the air-handier 
fans is negligible. 


7. Mixing of plenum air and comfort air in the main room is homogeneous. 

For each subroutine an analytical description, a flow chart and a 
schematic of the heating/cooling mechanism are presented. Each calcul- 
ation included in the analytical description is performed on an hourly 
basis. 


8.2 KEQ1 Subroutine 

This subroutine simulates the performance of type "one" air handler, 
a single cold duct with terminal reheat as shown in Fig. 8-1. Mixed air 
is cooled to a fixed set point at all times for all zones. The supply air 
temperature to a particular zone is modulated according to its load profil 
by a reheat coil located near the zone. A flow chart for the subroutine 
algorithm is shown in Fig. 8.2 and a sketch of the air temperature control 
mechanism is given in Fig. 8.3 on the psychrometric chart. 

8.2.1 Calculation Procedure 

1. Determine the temperature of the air leaving the cooling coil. 

If TMA< CSETPT 
Then SETLO = TMA 
Else SETLO = CSETPT 

2. Determine the actual temperature of the supply air to the zone (TSAZN) 

If TSAZ< SETLO 
Then TSAZN = SETLO ' 

Else TSAZN = TSAZ 

3. Compute the reheat coil heating load. With electric- type boilers 

QHEL = MLT* ZCFM (TSAZN-SETLO) Btu/hr 
QHBOLr 0.0 

With gas -fired boilers 
QHEL =0.0 

QHBQL= MLT* ZCFM *(TSAZN-SETL0) Btu/hr 

4 ? Calculate actual zone temperature. If the actual supply air to the 
zone does not equal the required supply air to the zone then the temper- 
ature of the room will differ from the design temperature 

If TSAZN * TSAZ 

Then TROOM = TSAZN + QSUM/(MLT*ZCFM) 

Else TROOM = TRA 

5, Determine the cooling load on the cooling coil 
QCC = MLT* ZCFM *(TMA-SETL0) Btu/hr 
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Figure 0-2. Flow chart of KEQ1 subroutine- 
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Q 



Figure 8-3. KEQ1 air temperature control on the psychrometric chart 
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8.3 KEQ2 Subroutine 

This subroutine simulates the performance of type "two" air handler: 
dual duct, multizone, with mixing boxes or single duct, multizone with 
mixing at the air handler. Mixed air is divided and supplied to a heating 
coil and a cooling coil. The supply air temperature to a particular zone 
is modulated by mixing cold and hot air streams at the air handler or at 
the zone. A schematic of this type of air handler is shown in Fig. 8*4 
and a flow chart for the subroutine algorithm is shown in Fig* 8*5. The 
process on the psychrometric chart is sketched in Fig. 8.6. 


8.3.1 Cal cul ati on . Procedure 

1. Determine the temperature of the air leaving the cooling and heating coils 

• If TMACCSETPT 
Then SETLO = TMA 
Else SETLO = CSETPT 


• If TMA>HSETPT 
Then SETHI = TMA 
Else SETHI - HSETPT 

2. Calculate the fraction of air which passes through the heating coils (XH). 
XH = (TSAZ - SETLO)/ (SETHI - SETLO) 

3. Determine the actual temperature of air supplied to the zone 

If XH >1 then TSAZN = SETHI and XH = 1 
If XHCO.O then TSAZN = SETLO and XH = 0.0 
Else TSAZN = TSAZ 

4. Compute the heating coils heating load. Distinguish between the 
different heating types. 

If HEATER - 1 then QHBOL = MLT*(ZCFM)*(XH)*(SETHI-TMA) Btu/hr 

QHEL = 0.0 


If HEATER - 0 then QHEL = MLT*(ZCFM)*(XH)*(SETHI-TMA) Btu/hr 

and QHBOL =0.0 

5. Determine cooling load on cooling coils 

QCC = MLT*(ZCFM)*(1-XH)*(TMA-SETL0) Btu/hr 

6. Calculate actual temperature of room 

TROOM = TSAZN + QSUM/ (MLT*ZCFM) °F 





I 

I 

» 

i ' 

; 

} • • 

i 

I- 




Figure 8 - 4 . TyP® 


11 2 1 * a ir handler*. 


dual duct multizone 
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Figure 8-5. Flow chart of KEQ2 subroutine 














DRY BULB TEMPERATURE 


TSAZ 


figure 8-6. KEQ2 air temperature control on the psychronte trie chart 


i 
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8.4 KEQ3 Subroutine 

This subroutine simulates the performance of "type three" air handler; 
a single cold duct with bypass and terminal reheat. Mixed air is cooled 
to a fixed set point for all zones. The supply air to a particular zone 
is modulated according to its load profile by mixing cooled air with 
bypassed mixed air with a reheat coil located at the air handler or near 
the zone. A schematic of this type of air handler is shown in Fig. 8.7. 

A flow chart of the subroutine algorithm is shown in Fig 8.8. The process 
is also sketched on the psyc'irometric chart as shown in Fig. 8.9. 

8.4.1 Calculation Procedure 

1. For heating mode (TSAZ>TMA) : 

All air will bypass the cooling coil. Compute the heating load. 

If TSAZ >TMA then BF = 1 

QHEL = MLT*{TSAZ-TMA)*ZCFM Btu/hr 

Set QHBOL =0.0 

If HEATER = 1 

Then QHBOL = QHEL = MLT* (TSAZ-TMA ) *ZC FM and 
Set QHEL =0.0 

2. For cooling mode; TSAZ< TMA 
If TSAZCTMA and TMACCSETPT 
then BF = 1 

QCC = QHEL = QHBOL = 0 
TSAZN = TMA 
cooling is off 
heating is off 

3. For cooling mode; TSAZ<TMA 
If TMA ^ CSETPT 

then compute the bypass factor (BF) * 

BF = (TSAZ - CSETPT)/ (TMA-CSETPT), 

TSAZN = TSAZ 

4. For cooling mode TSAZ< TMA 
If TSAZ < CSETPT i.e. BF<0, 
then BF = 0 

TSAZN = CSETPT 

5. From 2, 3, or 4 determine the cooling load on the cooling coil and 
the actual temperature of the zone. 

QCC = MLT*(1-BF)*ZCFM*(TMA-CSETPT) Btu/hr 

TROOM = TSAZN + QSUM/(MLT*ZCFM) °F 
















SPECIFIC 

HUMIDITY 



Figure 8-9. Schematic of KEQ3 processes on the psychrometric chart 
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8.5 KEQ4 Subroutine 

This subroutine simulates the performance of type "four" air handler. 

A mixture of outside air and return air is suppliedto a coil which may be 
used for heating or cooling depending on the operating mode. In either 
mode, supply air to the zones is modulated by mixing heated or cooled air 
with bypassed mixed air. This type of air handler can also fit the case 
of a heat pump with bypass control. A schematic of this type of air 
handler is shown in Fig. 8.10 and a flow chart of the subroutine algorithm 
is shown in Fig. 8.11. The process is sketched on the Psychrometric chart 
as given in Fig. 8.12. 

8.5.1 Calculation Procedure 


1 . For heati ng mode , TMA < TSAZ 

and if TMA < HSETPT 

then QCC = 0 

BF = (TSAZ-HSETPT)/ (TMA-HSETPT) 

TSAZN “ TSAZ 
If BF < 0 then BF = 0 
TSAZN = HSETPT 

QHHP = MLT*ZCFM*(1 -BF) (HSETPT-TMA) , Btu/hr 

2. For heating mode, TMA<TSAZ 
and if TMA > HSETPT 
then BF = 1 

QCC = 0 

QHHP = QHEL = QHBOL = 0 
TSAZN = TMA 

3. For cooling mode, TMA 2 TSAZ 
and if TMA > CSETPT 

Then BF = (TSAZ - CSETPT)/ (TMA-CSETPT) 

TSAZN = TSAZ 
If BF < 0 then BF = 0 

TSAZN = CSETPT 

QCC = MLT*ZCFM*(1-BF)*(TMA-CSETPT) Btu/hr 

QHEL * QHBOL = QHHP * 0 

4. For cooling mode, TMA > TSAZ 

And if TMA < CSETPT 

Then BF = 1 

QCC = 0 

QHEL = QHBOL = QHHP 
TSAZN = TMA 

5. Calculate actual zone temperature. 

TROOM = TSAZN + QSUM/(MLT ZCFM) °F 


no cooling 
no heating 


cooling is off 
heating is off 








Figure 0-11. Flow chart for KEQ4 subroutine 
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8.6 KEQ5 Subroutine 

The KEQ5 subroutine simulates the performance of type "five" air handler: 
a two-level room* with cold plenum air and comfort air modulated by terminal 
reheat at the room. Mixed air at the air handler is cooled to a fixed set 
point for all zones. Cold air modulated by a reheat coil located near or 
at the zone is supplied directly to the main room. The required air temper- 
ature to the zone is achieved by complete mixing of plenum air and comfort 
air in the room. A schematic of this type of air handler is shown in 
Fig. 8.13 and a flow chart for the subroutine algorithm is given in Fig. 8.14. 
The process is sketched on the Psychrometri c chart as illustrated in Fig. 8.15. 

8.6.1 Calculation Procedure 


1. Determine the set point temperature SETLO 
If TMA < CSETPT 

Then SETLO = CSETPT 
Else SETLO - CSETPT 

4 

2. Calculate the temperature of contort air (THOT) 0 

THOT = TSAZ- (SETLO) (1 - HFBRA) /HFBRA F 

Sr ™ = cfm comfort _air_ ^ 0 

nrDKrt (..fin comfort air + cfm plenum air T 

3. Compute heating and cooling loads on the coils: 

If THOT <• SETLO 

Then THOT * SETLO 

QHEL - QHBOL = QHHP = 0 
OCC = ZCFM*MLT*(TMA - SETLO) Btu/hr 


If THOT > SETLO 

Then QCC = MLT*(ZCFM)*(TMA - SETLO) Btu/hr 

QHEL = MLT*ZCFM*HFBRA*(THOT - SETLO) Btu/hr 

4. Calculate the two-leyel room temperature TROOM 

TR00M = (HFBRA*TH0T) +. (1 -HFBRA )*SETL0 + 0 

QSUM/(MLT*ZCFM) f 



Figure 8-13. Two-level room with cold plenum air and comfort air modulated 
by terminal reheat 



no. 



Figure 8-14. Flow chart for KEQ5 subroutine 









DRY BULB TEMPERATURE 
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Figure 8-15. Schematic of KEQ5 processes on. the psychrometric chart 
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8.7 KEQ6 Subroutine 

a^two^evel^room^wfth^cold'plenum alr^nT'VV^ *’> 

passed mixed air and termina JeheaJ SvT f - rt ^ r^^dul ated by by- 
cooled to a fixed set fo^Sn ;„„« xed T^ r » at ! he S^.^ndler is 
level is a mixture of cold air and hvnacc.d ^- e c0! | , ^ ort ai r to the second 
a reheat coil looted near or at the zone? " 1X and 1s l " odulated * 

^^^^t^af^^is 1 ^ JiTSA"?- 8 ;J 6 a " d « «* 

okstched on uhe psychrometric chart as shown in Tig/s. I™ 6 process 1s 
8.7.1 Calculation Procedure 

If TMA < cSETPf CtLlal temperature of air leaving the cooling coils (SETLO J 
Then SETLO « TMA 
Else SETLO = CSETPT 

2 ‘ THnT U I atS 4^ temperature of comfort air (THOT) 

WheL HPB^ S TL °:°“ H ? R » /™ A °F 

HFBRA - (eft, of comfort air)/(cfm of comfort air t eft, of plenum air) 

3 ‘ ftP* h “«»« loads on the cooling and heating coils: 

Then CPF = l 
THOT = SETLO 

Mi^T* 7 rFM*yTMft B Reheat is off 

' (,1) S S ^° s T H0TS ^nd S TOA°l SETLO 

t,,6 Shb c oT : © : 38W - SE ™> 

{HI) If THOT >TMr ( theT [l ‘ HFBM ‘< d ‘ 

CPF - 0 

qd “ = K?L™* (T F - TMA)*HFBM 

(iv) I? TMA i M sSS CIW(1 ' HFBRA) *(™ A - SETL0 > 

Then QCC = 0 

QHEL = ZCFM*HFBRA*MLT*(THOT - TMA) 


*(TMA - SETLO) 

8tu/hr 

Btu/hr 


4 - wS’-^nSif 

QSUM/(MLT * ZCFM) ■ SETLO) + 


Btu/hr 





Figure 8-16. Two-level room with cold plenum air and comfort air modulated "by mixed air 
and terminal reheat 

* 



















SPECIFIC 

HUMIDITY 



Figure 8-18. Schematic of KE06 processes on psychrometric chart 
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8.8 KEQ7 Subroutine 


This subroutine simulates the performance of type "seven" air handler; 
a two-level room with cold plenum air and comfort air modulated by mixing 
cold and hot decks. Mixed air at the air handler is divided and supplied 
to a heating coil and a cooling coil. Mixing of comfort air and plenum 
air is assumed complete and perfect. A schematic of this type of air 
handler is shown in Fig. 8.19, and a flow chart for the subroutine algo- 
rithm is shown in Fig. 8.20. The process is also sketched on the psychro- 
metric chart as shown in Fig. 8.21. 


8.8.1 Calculation Procedure 

1. Determine the actual temperature of air leaving the cooling coil 
(SETLO) and heating coil (SETHI). 

If TMA < SETLO then SETLO = TMA else SETLO = CSETPT 

If TMA > SETHI then SETHI = TMA else SETHI = HSETPT 


2. Determine the temperature of comfort air (THOT) 

CFM1 = (l - HFBRA)ZCFM= plenum air discharge 
CFM2 = HFBRA*ZCFM= comfort air discharge 

THOT = j’TSAZ*(ZCFM) - (CFM1*SETL0)]/CFM2, CFM 2 f 0 

3. Determine the cooling coil pass factor (CPF), which is the amount of 
comfort air that passes through the cooling coil: 

(1) If THOT < SETLO 
Then CPF = 1.0 
THOT = SETLO 

(ii) If THOT > SETHI 
Then CPF =0.0 

THOT = SETHI 

(ii i ) If SETHI > THOT s SETLO then 

CPF = (SETHI - THOT)/ (SETHI - SETLO) 



Calculate the heating and cooling loads on the coils: 

HLD = (T.O - CPF)*CFM2*(SETHI - TMA)*MLT 

If HEATER = 0 then QHEL = HLD 

If HEATER = 1 then QHBGL = HLD 

QCC = CFM1 + (CPF*CFM2)f * MLT * (TMA - SETLO) 


Btu/hr 

Btu/hr 


5. Calculate the actual temperature of the room (TROOM). 
TROOM = (THOT*HFBRA) + (SETLO * (1.0 - HFBRA)) + 

QSUM/(MLT * ZCFM) °F 



Figure 8-19. Two-level room with cold plenum air and comfort air modulated by mixing 
cold and hot decks 


.',V- • 
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Figure 8-21 


Schematic of KEQ7 processes on the psyclirometrlc chart 
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8.9 KEQ8 Subroutine 

This subroutine simulates the performance of type ''eight" air handler: 

> a single cold duct with fixed, bypassed return air and terminal reheat 
as shown in Fig. 8.22. Mixed air is supplied to all zones after being 
cooled. The supply air temperature to a particular zone is modulated by 
mixing return air with cold deck air and heating the final mixture with 
a reheat coil located near the zone. A flow chart of the subroutine algo- 
rithm is given in Fig. 8.23 and a schematic of the processes on the psychro- 
metric chart is given in Fig. 8.24. 

8.9.1 Calculation Procedure 


1. Determine the actual temperature of air leaving the cooling coil (SETLO) 
If TMA < CSETPT 

Then SETLO = TMA 
Else SETLO = CSETPT 

2. Calculate the temperature of the air mixture (TMR) when mixing cold 
air with return air 

TMR = (HFBRA*TRA) + ((1.0 - HFBRA) * SETLO) °F 

Where HFBRA is the fraction of zone air discharge that is bypassed by 

return air. 

3. Determine the actual supply air temperature to the zone (TSAZN) 

If TSAZ < TMR 

Then TSAZN = TMR 
Else TSAZN = TSAZ 

4. Calculate the heating load on the reheat coil. If the required supply 
air to the zone is higher than TMR then the reheat coil is activated 
and the heating load is calculated. 

If TSAZ s TMR 

Then HLD = ZCFM*MLT* (TSAZN - TMR) Btu/hr 

If HEATER » 1 then QHBOL = HLD 

If HEATER = 0 then QHEL = HLD 

5. Calculate the cooling load and the actual temperature of the room 

QCC = ZCFM * MLT * (1 - HFBRA) * (TMA - SETLO). Btu/hr 

TROOM = TSAZN + QSUM/(MLT * ZCFM) °F 


FROM OTHER 



Figure 8-22. Single cold duct with fixed, bypass return air and terminal reheat 



Figure 8-23. Flow chart of KEQ8 subroutine 
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10 KEQ9 Subroutine 

This subroutine simulates the performance of type "nine" air handler: a 

two-level room with constant volume cold plenum air rate and variable 
volume comfort air rate at fixed temperature. Cold plenum air is supplied 
at constant discharge to the main room through the electronic equipment 
racks. Variable volume hot deck temperature is supplied directly to the 
main room. Mixing of plenum and comfort air is assumed perfect and complete. 
A schematic of the air handler is shown in Fig. 8.25 and a flow chart of 
^ e .i_u U k r0U ^t ine a l9°^thm is given in Fig 8.26. A schematic of the processes 
on the psychrometric chart is given in Fig. 8.27. 

• 1 Calculation Procedure 


1. Determine CFM1 and CFM2 

CFM2 = HFBRA*ZCFM = maximum comfort air discharqe 
CFMI = ZCFM - CFM2 

2 ‘ provided! 1 * tenlperature *> the <TSAZ1) assuming no comfort 

TSAZ1 = TRA - QSUM/ ( CFMI *MLT ) 

If TSAZ1 < 50 then TSAZ1 = 50 


3. 


4. 


If TSAZl s TPAM then the variable volume damper is closed. Cooling set 
point is automatically adjusted to be TSAZ1. 

(a) If ECON ~ 0 then go to item (e) 

(b) If ECON ^ 0 and TOA > TRA then go to item (e) 

(c) If ECON * 0 and TSAZ1 fi TOA £ TRA 
Then TMA = TOA and go to item (e) 

(d) If ECON * 0 and TOA < TSAZ1 

Then TMA = TSAZ1 and go to item (e) 

(e) Determine cooling and heating loads and the actual room temperature 

QCC = CFMI* (TMA - TSAZ1) *MLT Btu/hr 

QHBOL = 6.0 

TR00M = TSAZ1 + QSUM/CFM1*MLT °F 

Return to the main program. 


If TSAZ1 > TPAM 
(a) If ECON = 0 
If ECON * 0 
If ECON * 0 


(b) 

(c) 


ECON =1 and TMA^CSETPT then 
go to item (e) 

and TOA > TRA go to item (e) 
and TPAM s. TOA < TRA then 
, TMA = TOA , go to item (e) 

(d) If ECON . * 0 and TOA < TPAM then 

4 TMA = TPAM, go to item (e) 

(ej Determine the actual cold and hot deck temperatures, SETLO and SETHI 
SETLO = MIN (TMA, TPAM) 

SETHI = MAX (TMA, HSETPT) 

(f) Determine the variable air discharge fpr comfort air, VCFM2 

JfTcml o°S» 0 ?®i (SE ™ , - TO) r - F—tMsetmI ,cfm 
If VCFM2 > CFM2 then VCFM2 = CFM2 




Figure 8-26. Flow chart of KEQ9 subroutine 











DRY BULB TEMPERATURE 



B) TSAZt >TPAM 
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g* 


Det ™TLF L ’ ^ HB0L > Q cc and TROOM 
a If HEATER = 0 then 

q Q KbV- V oT‘ MLT ‘ (SETHI ' TMA) 


Btu/hr 


* 


e 


If HEATER = 1 then 
QHEL =0.0 

QHBOL = VCFMZ*MLT* (SETHI - TMA) 

TDnr»M ML 7* CFM1 *(TMA - SETLO) 

TROOM = ] (VCFM2*SETHI) + (CFM1*SETL0) 

Return to main program 


Btu/hr 

, Btu/hr 
(QSUM/MLT) I / 


(CFM1 + VCFM2) °F 
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SECTION IX 
COP SUBROUTINE 


1 Description 


The coefficient of performance (COP) subroutine calculates the actual electric 
energy consumed by the compressor in electric-driven vapor compression ref rid- 
eration equipment. Both cooling (refrigeration) and heating (heat pump) 
modes are considered. The air handler heating or cooling loads, as computed 
from the main program an. converted in (COP) to the corresponding electrical 
consumption by the primary equipment. 


Changes in equipment performance due to outside air temperature variations 
and inefficiencies due to partial load operation are considered. 

2 Refrigeration Performance 

Figure 9.1 illustrates the four basic components of a vapor compression refrig- 

uI=+ 1 ?Lv y * * e ^‘Pressor, condenser, evaporator and expansion (throttling) valve 
Heat (Qe) is extracted from the space to be cooled to produce a phase change of 
the refrigerant from liquid to vapor. The vapor is compressed in a compressor 
from point_(B) to (C) before it enters the condenser. In the condenser, the 
vapor (u) is condensed to liquid (D) while rejecting heat to the ambient air. 

The liquid is throttled to point (A) where the cycle is repeated. The mechanical 
work required in the compressor is 


W = Q C - 


The coefficient of performance is defined as 

(r.np) = refrigerat ion effect 
v ' compressor work 

For an ideal Carnot cycle, the COP is given by 


= Q c 


Qc - Qe 


(COP) 


Carnot 
refrigeration 


_ Te 
~ Tc-Te 


where Tc and Te are the absolute temperatures of the condenser, and the 
evaporator, respectively. 

dtffer6nCe in the c ° nde " ser and evaporator 


ihe following assumptions are made 

1 Tws n « . ’ t . . 


1 . 


In the cooling mode, the condensation temperature (TJ in the condenser 
assumed 40°F above the ambient air temperature (TOA)? 


is 


2. In the cooling mode, the evaporation temperature (TJ in the evaporator is 
below the desired cooling set point by 10 3 * S F. a H 


3. The relative efficiency of an actual refrigerator compared to the ideal 

Carnot refrigerator is 49SL The relative efficiency value was abstracted 

from average conditions of air-cooled and water cooled chillers. 
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4. 


P er *»" or refrigeration (PPT) 
Of each compressor sS^. the ful1 ‘oniage 
is assumed to consume a constant en°rny 4 ?I,*i 5 un load ™ s » the refrigerator 
load. Compressors are assumS +n Ef ^.^corresponding to 402 of full 

cooling cap\c??;ie^ r verer:hen t t 0 he e s™^d 0 s f ta t ge ST fU " 


(COP) = o 49 CS£TPT + 450 
act u,4y TOA-CSETPT + 


50 


’ l » • v/VJ 

per r rZ'U- refrigeration^( 12^000 the e,ert ^ *««• t») 

PPT = KWe/Ton = 7.18*(T0A - 5.0)/505 

3 Heat Pump Performan ce 

between the condense^and^he^vLoratnr f ° r tfle heat pump which are reversed 
extracted from th^rela^velv co?5^ ouls d?T£ r ?J^ F1g ' V* The heat * 
by providing the mechanical work in e air and ] s v P um P e d to the space* air 
performance for the he« C p»p°is (W) ‘ Tl,e ^fficie P nt of 

(COP) , . = heating effect _ q c 

neat pump compressor work Q^Qe 

F °r an ideal Carnot cycle, the (COP) is given by 

(C0P) r . * j£ 

'Carnot Tc-Te 
heat pump 

where T is the absolute temperature. 

fofa%?;y h ?“ heat pump cycle allowing 

following assumptions are mlde: the condenser and the evaporator. The 

’ ■ is assuraecMO V^bore^^ deck^set U poi nf ^emper^u^°(lls^^T , ) > . 

is assumed belorthe oStsidfair*^ evaporator, 

Carnot's t heat e p f ump\ ? s nC 49«. f ^ aCtUal heat pUnlp cora P ared to the ideal 

is assumed'constant^or 11 ^! part ial"! Sadi no 9 d m ° de r P |I, 1 kl ' loWatt (thermal) 
capacity of the machine.^ OnT teloj ^^ull^n^L^ ? e f ul l heati "9 

is assumed to consume an enernv IquciI I* loading, tne heat pump 

For heating madefy SmS , ^ssS S ?°t n ^^°l^“' e r ll,, l0ad ‘ 





i cmreiwi ukc 


EXPANSION 

VALVE 



Figure 9-3 Heat pump cycle (Heating mode) 
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TO A 




Figure 9—4. Operating temperatures of 


a heat pump cycle 
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Accordingly, 


actual 


= .49* (HSETPT + 500) 

(HSETPT - TOA + ~50j 


9.4 Variables List 

Variable 

C c 

CDSIZ1 i 

CSETPT c 

CQCC c 

CQHHP i 

FFCl i 

FFC2 i 

FFH 1 

HSETPT \ 

PPK e 

PPT e 

SIZE(l) 1 

SIZE(2) s 

SIZE (3) \ 

TOA c 

9.5 Computation Procedure 


Description 

cooling load, tons ^ 

fraction of first stage cooling load 

cold deck set point, °F 

compressor cooling load in Btu/hr or KWe 

heat pump heating load, Btu/hr or KWe 

fraction of full load of first stage (cooling) 

fraction of full load of second stage (cooling) 

fraction of full heating capacity (heat pump) 

hot deck set point, °F 

electric power per KWf (heat pump), KWe 

electric power per TORS (cooling), KWe 

first-stage compressor SIZE, TONS 

second stage compressor SIZE, TONS 

heat pump capacity (Btu/hr) 

outside air temperature, °F 


1. Convert the compressor cooling load CQCC(Btu/hr) to tons of refrigeration 

i 

C = CQCC/12000 tons 

2. Calculate the power per ton of refrigeration 

• • • i 

PPT = 7.18*(T0A~ 5.0)/505 

3. Determine the partial loading of each compressor stage 

a. If the required cooling tons (C) is less than the size of stage t l 

(SIZE!) then only the first stage is loaded and the fraction of full 
cooling capacity of stage 1 is: i 

FFCl = maximum (0.4, C ) and FFC2 - 0.0 • 1 

SIZE 1 ' 

b. If C > [SIZE! + SIZE2] then write a warning message, 

CQCC (in KWe) = PPT*C 
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c. 


If [SIZE! + SIZE2] > C 
C2 = (C - SIZE1)/SIZE2 
where C2 is the fraction 
FFC2 = maximum (0.4,C2) 


> SIZE 1 then 

of full cooling capacity of stage 2. 


4 ' corapressot -- »■ 

5 - tL™K s a^ s ^i 0 ^crsi;%5ni? ulate the power per knowatt 

PPK = (135.0 -T0A)/(. 49*585 ) KWe/KWt 

6 * !^ late the ,f ractl ' on of full load for the heat pump and the electric 
power consumption. F lsunc 

FFH = CQHHP/SIZE3 

a. If FFH <0.4 then 
FFH = 0.4 

CQHHP = (0.4*SIZE3*PPK}/3413.0 KWe 


b. If FFH — 0.4 then 

CQHHP = CQHHP*PPK/341 3.0 KWe 

The subroutine flow chart is sketched in Fig, 9.5. 
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APPENDIX "A" 
PROGRAM LISTING 


138 

List of Program Variables 

The following Table A. 1 provides a brief description of the program variables 
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Variable 


A 

ABSORT 
(or ALPHA) 
ACCERY 

AQJ 

AGLAS 

AH 

ALFA 

AQCC 

AQHBOL 

AQHEL 

AQHHP 

ATZVOL 

AWAL I 
AWALL I 


B 

BF 

BLDG 

BOLEFF 


C 

C 

C2 

CAPACY 

CCF 

CDSIZ1 

CFM1 

CFM2 

CLIMIT 

CLK 

CNUM 


TABLE A.l List of Program Variables 


Description 

? 

Solar radiation parameter, Btu/hr. ft 
Outside wall solar absorptivity 

Daily energy consumption by accessories, KWH Q 

Adjacent zone identifier 
2 

Glass area, ft 

Air handier type identifier 

Outside air to total air discharge ratio 

Air handler cooling load on cooling coils, Btu/hr 

Air handler heating load on gas-fired boilers, Btu/hr 

Air handler heating load on electric heaters, Btu/hr 

Air handler heating load on heat pump, Btu/hr 

Summation of zones volume fed by common air handler, ft 

Wall (or roof) surface area, ft 


Solar radiation extinction coefficient 
Bypass factor 

Alpha-numeric name of building under study 
Combustion efficiency for gas- fired Boilers 

Diffuse radiation parameter 
Compressor cooling load in tons 
Second stage compressor cooling load in tons 
Total air circulation of a given air handler, cfm 
Cloud coyer factor 

Fraction of full load on first stage compressor 

Plenum air discharge 

Comfort air discharge 

Maximum number of compressors 

Time clock 

Compressor number or index 
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! 1 


TABLE A. 1 (cont'd) 


1 

Variable 

Description 


GOP 

Coefficient of performance 

■ 1 

COPRES 

Compressor-air handler distribution index 

j 

COUNTC 

Compressor counter flag 

: j ' 

COUNTE 

Counter index 


CPF 

Cooling coil pass -factor 


CQCC 

CQHHP 

Compressor cooling load for all air handlers, Btu/hr 
Compressor heating load for all air handlers, Btu/hr 


CSETPT 

Cold deck set point temperature, °F 




DATYPE,DYTP 

Type-of-day identifier 

• -■ 

DCQCC 

Sum of cooling loads on compressors for 24 hrs. 

j 

DEC 

Declination angle, radian 

. . . | 

DEZCFM 

Design value of zone CFM 


DKWHE 

Cost of KWH e in dollars 


DKWHT 

Cost of KWH t in dollars 

j 

DT 

Temperature difference = (TOA-TRA) 



m 

o 

o 

Subroutine to echo input data 

; ... ECON 

Outside air economizer cycle identifier 

EPOWER 

Daily sum of electrical energy in zone consumed by electrical 
and mechanical equipment, KWHe/daytype 

EQPWR 

Daily sum of electrical energy in building consumed by electrical 
and mechanical equipment, KWHe/daytype 

EYE 

Flag or index 


! • 

FFC1 

; j ■■■: FFC2 

v| V FFH 

FINHON 

FLIP 

I FLOAT 


Fraction of full load for first compressor stage . V. J i 

Fraction of full load for second compressor stage L 

Fraction of full load for heat pump 

Monthly energy consumption and cost matrix i ; 

Flag ] 

Flag 


A 
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TABLE A.l (cont'd) 


Variable 

Descripti on 

GRREFL 

Ground reflectivity 


H, HOUR 

Hour index 

HA 

Hour angle, radian 

HALMT 

Hour angle at sunrise or sunset, radian 

HANDLR 

Air handler namelist 

HEAT, HEATER 

Type of air handler heating source identifier 

HF, HFBRA 

Air discharge ratio for special air handlers 

HLD, HLOAD 

Heating load on heating coils, Btu/hr 

HMAXAH 

Maximum supply air temperature for multi zones fed t>y a given 
air handler, °F 

HMINAH 

Minimum supply air temperature for multizones fed by a given 
air handler , F 

HO 

Convective heat transfer coefficient for outside wall surface, 
Btu/hr. ft 2o F 

HSETPT 

Hot deck set point temperature , °F 


I, II 

Index 

IASTRK 

Index 

ICNTRL 

Index for two-level zones 

IDN 

2 

Direct normal solar radiation, Btu/hr. ft 

INDEX 

Index 

ISET , IZ 

Parameter: for ECHO subroutine 


0,0 0 

Index 

OFLAG 

Index 


K Index 

KEQ1 First air handler subroutine (K=l) 

KEQ2 Second air handler subroutine (K=2) 
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TABLE A.l (cont'd) 


Variable 

Description 

KEQ3 

Third air handler subroutine (K=3) 

KEQ4 

Fourth air handler subroutine (K=4) 

KEQ5 

Fifth air handler subroutine (K=5) 

KEQ6 

Sixth air handler subroutine (K=6) 

KEQ7 

Seventh air handler subroutine (K=7) 

KEQ8 

Eighth air handler subroutine (K=8) 

KEQ9 

Ninth air handler subroutine (K—S) 

KEQUPE 

Kilowatt of electrical equipment, KW e 

KEQUPM 

Kilowatt of mechanical equipment, KW g 

KFLGHT 

Kilowatt of fluorescent lights, KW e 

KLIMIT 

Maximum number of air handlers in the building 

KNUM 

Air handler number or index 


L 

LAT,LAT1 

LITPR 

LPOWER 


Index 

Latitude of the location, radian 

Daily sum of energy consumed by lights in a building KWHe/day type 
Daily sum of energy consumed by lights in a zone, KWHe/daytype 


M 

MAXAH 

MAXMO 

MAXQ 

MAXTCP 

MAXTZN 

MIALFA 

MINAH 

MINCFM 

MINQ 

MLT 

MO, MONTH 


Parameter in ECHO subroutine 

Maximum supply air temperature to all zones fed by a given air handler 

Maximum number of months for program run 

/* 

Maximum value of net heat gain QSUM 

Maximum cooling tonnage of a given compressor, tons of refrigeration 
Maximum zone cooling load per year, tons 

Minimum ratio of outside ventilation air to total circulated air 
for a given air handler 

Minimum supply air temperature to all zones fed by a given air handler 

Minimum outside ventilation air for a given air handler, cfm 

Minimum value of net heat gain QSUM 

Altitude multiplier for|density*specific heat] product 

Month index 
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TABLE A. 1 (cont'd) 


Variable Description 


N Parameter for ECHO subroutine 

NECHO Index for ECHO subroutine 

NEWHR Hour index 

NOP Number of persons occupying a zone 

NZONE Number of zone 


P Parameter = PI*M0/6 

PI Constant n 

PHIRF Phase angle for heat transmission through roof, radian 

PHIWL Phase angle for heat transmission through wall, radian 

PPK Power per kilowatt (therm) for heat pumps, KW Q 

PPT Power per tons of refrigeration, KW g 


QCC 

QEQUP 

QGLAS 

QHBOL 

QHEL 

QHHP 

QINF 

QLIGHT 

QNOP 

QPP 

QPPS 

QPPW 

QS 

QSUM 

QTRANS 

QTRAUN 

QWAL 


Zone cooling load by cooling coil, Btu/hr 

Zone heat gain due to electrical and mechanical equipment, Btu/hr 

Zone heat gain through glass areas, Btu/hr 

Zone heating load by gas-fired boilers, Btu/hr 

Zone heating load by electric boilers, Btu/hr 

Zone heating load by heat pump, Btu/hr 

Zone heat-gain/loss by infiltration, Btu/hr 

Zone heat gain by light sources, Btu/hr 

Zone heat-gain from people, Btu/hr 

Heat dissipated per person, Btu/hr 

Heat dissipated per person in sunnier, Btu/hr 

Heat dissipated per person in winter, Btu/hr 

Zone heat gain by solar and ambient air effects through glass area 
only, Btu/hr 

Sum of zone heat-gain/loss, Btu/hr 

Total heat transmission through walls and roofs, Btu/hr 

Transmission heat gain to zone by sol -air temperature method, for 
a given wall, Btu/hr. ft 2 

Heat transmission through zone walls and roofs, Btu/hr 
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TABLE A.l (cont'd) 



REHEAT 

RI 


Zone Index identifying the type of terminal reheating system 
Index 


SALT 

SANGLE 

SAZM 

SETHI 

SETLO 

SETPTS 

SHADE 

SI 

SIZE 

STAR 

SUMBLT 

SUMBL2 

SUMCC1 

SUMCC2 

SUMHL1 

SUMHL2 

SUMHP1 

SUMHP2 


Solar altitude angle, radian 
Solar transmission angle 
Solar azimuth 

Heating coil set point temperature, °F 

Cooling coil set point temperature, °F 

Set point temperatures, °F 

Ratio of wall unshaded area to total area 

Solar intensity, Btu/hr.ft 2 

Compressor cooling/heating capacity 

Index 

Sum of gas-fired boiler loads on daytype. 1 
Sum of gas-fired boiler loads on daytype 2 
Sum of cooling compressor loads on day 1 
Sum of cooling compressor loads on day 2 
Sum of electric heater loads on day 1 
Sum of electric heater loads on day 2 
Sum of heat pump 1 oads on day 1 
Sura of heat pump loads on day 2 


T 

TA 

TCOMFT 

TE 

TEM 

THOT 

TMA 

TMCLK 

TMR 


Zone cooling load in tons 
Glass solar transmissivity 

Supply air temperature to a zone from a given air handler 

Sol-air temperature, °F 

Average Sol-air temperature for 24-hours, °F 

Comfort air temperature of air fed into two-level room 

Mixed air temperature at the air handler, °F 

Index for time clock operation 

Mixed air temperature at the zone in (KEQ8) subroutine 
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TABLE A. 1 (cont'd) 
Variable Description ~ 


TNEXT 

TOA 

T0A1 

TP AM 

TRA 

TRAA 

TR00MJR00MA 

TSAZ, TSAZN 

TSUM 

TTLACl 

TTLAC2 

TWIN 


Temperature of next neighbouring zone ADJ=1,°F 

Outside air temperature, °F 

Special zone temperature for ADJ=2,°F 

Max-plenum air temperature, °F 

Zone return air temperature ,°F 

Average return air temperature for zones fed by a given air handler 

Room temperature, °F 

Supply air temperature to zone, °F 

Inside summer design temperature, °F 

Daily total energy consumed by accessories for daytype 1 

Daily total energy consumed by accessories for daytype 2 

Inside winter design temperature, °F 


U 

UGLASS 

UR,UW 


Overall heat transfer coefficient* Btu/hr. ff 2o F 
Overall heat transfer coefficient for glass, Btu/hr. ft^ F 

n_ 

Overall heat transfer coefficient for roof and walls, Btu/hr. fc °F 


V Amplitude of periodic heat transfer coefficient, Btu/hr. ft^°F 

VGFM2 Variable air volume for comfort 

VOL Zone volume, ft^ 

VRF, VWL Amplitude of periodic heat transfer coefficient for roof and walls, 

Btu/hr. ft Zo F 

VSG View factor between reflected solar energy and the ground 


WAZM Wall-azimuth angle 

WMPH Wind speed, mph 

WSAZM Wall -solar azimuth angle 

WT Wall tilt angle 
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TABLE A.l (cont'd) 


-Variable -Description 


YCQCC1 

YCQCC2 

YMAXAH 

YMINAH 

YTQCC 


Yearly total energy consumption by compressor in daytype (1) 
Yearly total energy consumption by compressor in daytype (2) 
Yearly maximum supply air temperature to zones (MAXAH),°F 
Yearly minimum supply air temperature to zones (MINAH) ,°F 
Yearly total summation of cooling tons for all compressors 


Z,ZN, ZONE 
ZCFM 

ZLIMIT*ZLMT 

ZQCC 

ZQHBOL 

ZQHEL 

ZQHHP 


Zone index 

Zone air discharge, cfm 

Maximum number of zones in building 

Zone share of cooling coil load, Btu/hr 

Zone share of heating coil load using gas-boiler, Btu/hr 

Zone share of heating coil load using electric heater, Btu/hr 

Zone share of heating coil load using heat pump, Btu/hr 
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A, 2 Listing of Program Source 


ECP PROGRAM 


DATE 062376 


PAGE l 


13592*VICC 

1 

2 

3 

il 

5 

6 
7 
6 
9 

10 

11 

12 

13 

14 
.15 
76 
17 

15 

19 

20 
n 
22 
>3 
2^ 

25 

26 
27 
*28 

29 

30 

31 

32 

33 
30 
35 
16 
37 
33 
39 
00 


t } *ECP« 
C 


01 

02 

az 

tm 

45 

06 

07 

06 

09 

50 

51 

52 

53 
50 

55 

56 


C 

C 

C 


VA 

first part of the ecp program 

COOLING LOAD FOR BUILDINGS 


COMPUTES THE HEATING AND 


DIMENSION 

dimension 

DIMENSION 
DIMENSION 
dimension 

DIMENSION 

dimension 

DIMENSION 

dimension 

DIMENSION 

dimension 
DIMENSION 
dimension 
dimension 
dimension 

DIMENSION 
DIMENSION 
DIMENSION 
Data iblank /* 
INTEGER IPC03 


tOAf 12t20),DwALC203 »SI(?O f 93fVOUS} 

CCFC12) tOINFfEO) iHFRRA(fi) f TSUM(8) rTHlN(fl) 
QGLA3C24) f 2a) yQNOPCgt 2fl)'tWMpH(2d) v H0C24)/ 

0LlGHT(?0 t l6i^0E0UPf 20 1 16) ? CAPACYOO) 

ACCFRT(2t5) ? ALF A{ 10 ) tOHELtas* 10 ) 

AQHEL(«BtlO) »O hhP(OSi 10) f AQHHPfae* 10) f QCCCOfli 10) 
AOCCCaSilOJtQhBOI. COS » 1 0) j AOHBOL (48 f 1 0) 

SETPTSC2*ib) f Sl2F(3. f 10) f TMAfaflt 10) iTSAZCSfRfl) 
CSETPT(OS» 10) ? HSFTPT(48»10) 

EPO*FP(2,0) f TcnHFT(a f US) tEQPwRC?) 

URCS) lUwfS) f PKTRF f S) .PHIWLCB) f VRF C S) « VML C 8 ) 9 TRA C 0) 
TR00M(a8) 1 MONTH (12) t FlMON () 3 9 9) t TROOHA (46 f 10) 
COPPES (1 0 1 1 0) • COCC ( 48 9 1 0 ) iCOHHPCOSf 10) 

VCQCC1 n0)fyC0CC2(10) 9YMaXAHC10) 9YMINAHC10) 
^MAKAHraSclO) f HMINAHCOfii 10) 

C0UNTEC48i 10) fCFMPENCS) 

05UMNUC?»?4) »TSA2NUC8t48) 

K*HC24t24) 

1 / 


IMPLICIT INTEGER CZ) 

REAL ZGHFLCa8)iZ0HHP(Zt8)9ZQCCC4flI?ZQHB0U4S) 

REAL MincFM(Io) 9 HIALFAUO) 

REAL HAXAH(IO) »MINAH(5 0) tMAXT^NCS) »HAXTAHUO) tHAXQCfi) fHjmCA) 

REAL HAX TCP f 1 0 ) 

- REAL MOP C2«» 16) 9KILGHTC2«9l 6) 9KFLGHTC24,1 6) «KEQUPEC249 16) #KE0UPMC2 
?4»16)tLTTPRr2)fLATfHLT 
REAL ZCFm( 8»1 1) tLP0*FR(2t8) 

INTEGER PCONCIO) tFl IPaTMCLKCaBf 10) 

INTEGER PEHEATCBIiHEATERMO) 9AHCSf 10) t ICNTRLCflf 10) 

INTEGER DA1YPE fHOURt ADJCRtS) 9 JFLAGC48) 

INTEGER COUNTCtCLIMTTiCNUM9COPRES9eOUNT£ 

COmmon/AREA/ AWALCRi B) t AGLASC99S) 9 TNEXTC 8 t 8 ) e SHADE (9*8) 

COMMON/* ALL/ URfUWfPHIRFfPHIWL^HOjVRFjVWLf ASSORT 
COMMON/OFC/ PtDECf Af R 9 C 9 MO 

COMMON/*/ QSUM|T5AZfTHA*2CFM,C5ETPT ♦HSETPTtHEATER 9 REHEAT 9 HFBRA 
comhon/const/mlt 

COHMON/ALL/RLDGfKLTMlTtZUMiTiVOLfTSUHfTWIN, AHjALFA* 

? STZEfCOPREStCLIHIT 

COHMON/CNT/ IPfGSUMNUtTRAA 

NAMELIST/HANDLR/ AHrSETPTStSIZEt HEATER •REHEATfKLIMlTfZLIMIT? 

❖ A'CCE'Ry ? BLOGf ALFA 9 HAXH 0 ? ECONf HF0RA tZCFMfCOPRES pCLIMITi 
+ OKWHEf n«wHT»MLTf TMCtKtICNTBL 

NflHfit. IST/ INPUT 1 / *WiL»/'^LA5»VflL iTSUHf TWINi A0SOST? A 2/6/78 

♦ UB*llw»pMIttF t PHim. » VRr • VWL t AOJ 1 N 0 P fKILCHTf KFLGHTi KEQUPE»KEQUPH 
+ »LlT»TPAmNFCHO*7AU»RRBEFL«UGLASS»0OLEFF 

7 » TNfXT • SHADE 

COMMON /CONST? /L AT « TAUn!RP£FL»UGLAS5 
DATA /FI/3, 10159/ 

DATA MCfJTH/ l JAN * i t FE.P I » I PAH r r i APB i , I HAY I * I JUN! , I JUL I ♦ I AUG l i 
A 1 SEP 1 f ! OCT • « > NOV I « I DEf I / 


45* 

CO 
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EC P PROGRAM 


57 

c 


58 

c 


59 

c 


60 

c 


61 

c************** set 

63 

c 


63 


DO 2 ZDNE*1»8 

69 


DO 1 J*1 * 9 

65 


SHA0E£J*Z0NE3*1, 

66 


1 CONTINUE 

67 


TP£ZONE)*0 

6$ 


CFMPeN£ZONE3*0* 

69 


VOLlZONEiiSSOO, 

70 


75UM(ZONe3*7S. 

71 


TmIM£ZONE3*75, 

75 


UR (ZONE 3 * 0,1 

73 


UmCZDNEJxO, 21 

79 


PHIPF£ZONE3*1.3 

75 


Phj«l £ZONE3*l ■ 1 

76 


VBF(ZONEJ*0,OS 

77 


2 VWL£20NE3*0,05 

78 


ABSORTs,62 

79 


OPP Sa22fl.O 

80 


<3P PMa290 # 0 

61 


TPAM*62, 

82 


HAXMO a 12 

.83 


NECHO«0 

69 


LATa.611 

85 


TAU*0«aS 

86 


UGUSS*1 ,13 

87 


SRREFL*0,2 

88 


DXMHE*,03 

89 


0KWHT*,912 

90 


HLT=.R7 

.91 


B0LEFF*,8 

92 

e 


93 


99 

„ c 


95 

c 


96 


97 

e 


98 

c 

INPUT HEATHER DATA* 

99 

c 



100 

101 

102 

103 

ro# 

IBS 

IBS 

107 

iOS 

109 

110 

111 

112 
113 


8ET DEFAULT VALUES ****************** 


* 2/6/76 


C 

C 

c 

c 


R£AD£5*502) (£TOA£t,JJ* J*l*2«3* J*l*l2) 

REAO£5t50i) £ CCF£KJ* K*l*123 
READ(5t50Z) £whph£LJ» L*lt2«) 

HEAD£5iHANDLR3 
R£AD£5»IhPUT1} 

501 FORMAT £ 12F6.2) 

502 FORMAT £2AF3 ,03 

COMPUTE WALL AND ROOF HEAT TRANSFER COEFFICIENT ACCORDING 
TO MIND SPEED 


00 # 1*1 f SU 
HO £13*1 t +WHPH£I)/3 0 


DATE 062376 
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ECP PROGRAM 


DATE 063376 


no 

ns 

116 

117 

ns 

119 

130 

131 
123 
133 
130 
125 

136 

137 
128 
139 

130 

131 

132 

133 
130 

135 

136 

137 

138 

139 
IflO 
101 
102 
103 
100 

105 

106 
107 
106 
109 

150 

151 
153 
153 
15« 

155 

156 

157 

158 

159 

160 
161 
163 
163 
160 

165 

166 

167 

168 

169 

170 


’C 

c 80 « accessories contribution 
* TTLAC 11 total accessories im kwe for oavtype 1 

C TTLAC 31 TOTAL ACCESSORIES IN KWE FOR DAYTYPE 3 

C 

DO 5 1*1 »5 

TTLAClsTTLAti-MCCfSrmi) 

5 TTL&C3STTLAC3+ ACCERY £3» I) 

C 

C 

C ECHO INPUT DATA IN PROPER FORMAT IF SO DESIRED 

e 

IFCNECHO.EO.l) CALL ECHOtNOP.KILGHTf KFLGHTfKEOUPEf 
7 KEQUPMiLAT»ECONiTMcLK»ADJ*SETPTS) 

C 

C 

c 

c COMPUTE CAPACITY IN CFM OF THE AH AND TOTAL CFM TO THE ZONES 

C 

DO 30 Z0NE*1 *ZLIHIT 
DO 10 KNUM*1 t KLI H IT 

CAPAC V tKNUM)»ZCFH(ZONE i KNUMJ+CAPACY CKNUH) 
ZCFMtZONE»in*ZCFMCZONEtKNUM)+ZCFM(ZONEf 113 
10 CONTINUE 

c 

c SUM LIGHTING IN KW and EQUIPMENT LOADS IN KW 

C COMPUTE MINIMUM PERCENTAGE OF OUTSIDE AIR FOR AIRHANDLER 8 

C 
0 

00 15 DATYPEsl » 3 
Z*3*Z0NE«1 

IF (DATYPE.E.Q.3) Z-Z+l 
DO 15 houR* 1 r 2*1 

LPOWER{DATYPE9ZONE)aLPOWER(DATYPEfZONEJ+KFLGHTCHOUR?Z3 
7 . +KILGHT(H0UR*Z5 

EPOwERCDA TYPE »ZONE)aEPOWER(DATYPE» ZONE) +KEQUPE (HOUR »Z) 

7 +KEQUPMCHOUR *7) 

0 LIGHT CH 0 UR»Z)*KIL 6 HT tH 0 UR*Z 3 *3613 » +KFLGHT( HOUR »Z) * 4266 , 
OEQUP (H 0 tjR*Z)* 341 3 ,* CKEGUPECHOURtZi + .nKEQUPMCHOURiZn 
15 CONTINUE 
30 CONTINUE 

DO 33 DAtYPE*l»3 
DO 21 Z0NE=1*ZLIMIT 

LITPR(DATYPE)*LITPR(DATYPE 3 +LP 0 WERCDATYPE 970 NE) 

EQPHRtDATYPEJsEQPWRfDATYPEJ^EPOWERlOATYPEiTONE) 

33 CONTINUE 
C 

DO 30 KNuM*lfKLIHIT 
DO 35 Z0NE=1 *ZLIHIT 

IFCAHCZONE»KNUM)„NE.O) ATZVOL*ATZVOL+VOLCZONE 3 
25 CONTINUE 

miNCp m (mmijM 1 *HAX{ ATZVOL/J'O , *, 1 *CAPACY (KNUMJ J 
ATZV 0 L= 0 . 

MIALFA(KNUM 3 *MINCFM(KNUM)/CAPACYCKNUM) 

30 CONTINUE 
C 

C • f 


si 

§ t 
o? 
& g 

p $ 

G t-y 

£ ^ 
.*S 03 
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OSL 


ECP. PROGRAM 


DATE 062378 


171 

e* 

9 9 9 9 * * * * * 9 9 % 9 * 9 

172 

v 


BEGIN MONTH BY MONTH CALCULATION 

173 

c 

$ 

9 9 * 9 9 9 9 9 9-9 9 9 9 9 9 

ira 

c 



175 

c 


INITIALIZE KILOWATT-HOUR TABLE TO ZERO 

176 

c 



177 

c 



l?fl 



00 3333 X*l»2« 

179 



00 3333 LAK*li2fl 

150 



KWH(K«LAX)*0 

1*1 

3333 

continue 

182 

c 



133 

c 


COMPUTE ACCESSORIES IN KW PER HR 

18a 

c 



135 



ACERVtsO 

186 



ACERY2*0 

187 



00 3338 1*1*5 

1 £3 



ACERYl*ACER Yl + ACCERY £ 1 »IJ 

189 



ACEPY2*ArERY2+ACCERYC2*I3 

190 

3333 

CONTINUE 

!9t 

C 



192 

c 



193 



00 90000 MO*IjKAXMO 

190 

c 



195 

e 


COMPUTE VARIABLES P*OECfA»B»C FOR SOLAR SUBROUTINE 

196 

c 



197 



RaPl+HO/6, 

198 



DEC* C 0.2833-23. i6B*eO3fP3-0,15*COSr 2. *P)- 0 , 21 1*3IN£P3 

199 



A +0«lJ55*SIN(2.*P))*Pt/lB0. 

200 



As168,S+23,98*cns(P.)"1.083*eDS(2.*P)+A,a93*SIN(P}-.722*8INC2« 1 *P} 

201 



B3(m,5fl«33.0a*eOSCP)+3.08*C0${2,*P)-|0.34*SINCP)+l,3*3lN{H,*P)3 

292 



A *1.E-03 

203 



C*C90,333'»39.63*COSCP) + 6»as*COse2.*P3-10.65i*glN?P3i.3,t7*SlNt2,*f ) 

200 



A )*1.E»03 

205 

c 



206 

c 



207 

c 

m 

t*J 1*1 t*l 1*1 7*1 t*l [*J 1*1 [*1 f>M 1*3 7*1 1*1 

208 

c 



209 

e 



210 

c 


SET INITIAL VALUES 

21 1 

c 



212 



00 33 HOURxl *UB 

' 213 



DO 33 KNUH»1*KLIMIT 

21« 



A(JHEl,CHOUR*KNUH)sO. 

215 



AOCC{H0UP«KNUM3s0. 

216 



AOHHPCHOURtKNIlHJirO, 

217 



AOHaOL(HOUR»KNlIM3«0, 

213 


33 

CONTINUE 

219 

' c 



220 



DO 3« H0UR*1*98 

221 



DO 3« CNU«*1*CLIMIT 

222 



CQCC(HOUP*CNUM)*0. 

223 



COHHt>CH0ll«»CNUH)*0, 

228 


3« 

CONTINUE 

225 



DO 37 1*1 »l)8 

226 



DS 37 jsiflO 

227 


37 

COUNTEtlf J)aO ' 


OATt 062376 


PAGE 


5 


EC** PROGRAM 


225 

229 

230 

231 

232 
2 33 
23 « 

235 

236 

237 

236 

239 

240 

241 

242 

243 

244 

245 

246 

247 
24B 

sag 

250 

251 

252 

253 
25a 

255 

256 

237 

258 

259 

260 
261 
262 
263 
26a 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 
2*3 

284 


C 

C 

C 


C 

C 

c 

c 

c 


SET DESIGN CONDITIONS FOR 3UHMER/WINTER MONTHS 

DO 35 ZONEslfZUMIT 
TRi{ZONE)*TW!NCZ0N£) 

BPPsOPPw 

IFtHO f LE.5,OR.MO,GE«t05GO TO 35 
TR & CZ0N>E}sT5L|H (ZONE) 

OPPsrjPPS 
35 CONTINUE 


begin ZONE by zone EVALUATION of the HEATING/COOLING 
LOADS! AND EQUIPMENT ENERGY CONSUMPTIONS 


DO 500 Z0NE*1 tZLIMIT 
IASTRKkO 


c 

c * 
c 


• SEARCH for ICNTRU equal TO 1 FOR THIS ZONE 


00 38 KNUtfsl f KLIMIT 

IFtlCNTRLCZONEfKKjUM) # EQ. 

38 CONTINUE 


n IP (Z0NE5® 1 


C 

C 

C 

C 

c 

c 

c 

c 


. COMPUTE INFILTRATION LOAD 

1010 OINrKoUR)!vOL«5«E)*.Oa*»LT*CTOACMfHOUR>TRA(lONE)J 


c 

c 

c 

c 


c 

c 

c 



COMPUTE TRANSMISSION LOADS THRU WALLS AND ROOFS AND SOLAR LOADS 
THRU GLASSES 


CALL S0LAR(TRA(Z0NE)tCCF»T0A»9I,QGLAStZ0NE) 
CALL TPAnS{TRA(Z0NE3»T0A,SI<QWAL*ADJ. ZONES 


hourly heating and cooling coil setpoints 

DO 39 1*1 » 08 

DO 39 KNUM*1 fKLTHIT 

CSETPT(I»KNUH)*SFTPTS(1 *KNUH) 
HSETPTCI.KNUMl=SETPTSt2*KNUH) 

39 CONTINUE 


heating/cooling LOADS 

DO 1050 DATYPE*1«Z 
Z*2*Z0NE-1 

IF (nATYPE.EQ.2) Z*Z+1 
DO 1050 H0UR*1 *2U 
n=HouR 

IFCDATYPE.EQ-2) IlBH0UR+2« 


I — * 
CJ1 

ro 
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285 

286 

267 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 
29fl 

299 

300 
3 01 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 
326 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 


C 

C 

c 

c 


H?im!^J V o!’o° U,?)3MOP(HOlJR *ZJ I, 'OPP 


DATE 062378 


PAGE 6 


BtGIN EQUIPMENT LOADS CALCULATIONS 


,AN0» HOUR ,EQ, jj) go To ^ 


IFt.NOT.CDATYPE.En.i 
IPCHOtNE, 13 GO TO 50 
HINO(ZONe)*OSUH( 1 » 1) 
HAXOf ZONE) cG5uh{ t ♦ 5 3 
GO TO 50 


TO ZONE 


C COMPUTE TSAZt TEMP oe SUPPLY AIR 

• c TSAZNUcKJmSmJS 

| KEyJU^^ WITH ANOTHER 

KTU*2*KLiHTT 
00 56 KKSJ * KTU 

tc/j u,;« T * KLIM iT) GO TO 57 
IPClCNTRU70N[,KK?* t NE. 5 n T G 0 5 ? 0 «, 

GO TO 56 

' C0 " Pg,E "** 1ND "" 7S " P ‘” «»"«*»■•« EEEOINs , E , EB4L E onE9 

57 KKlaKK-KLIMIT 

IP( AHfZONE»«Kl ) .pq <n rn T n i E 

1 02 °* TS ?IS^f?S£Ei !if «0«e> -SsuS53 Jo?T TPE, HOUS J ^ f HLT» 

GO TO 1 0ZI9 

«SHSS 

1050 CONTINUE 


tn 

co 
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302 

344 

3*5 

3*6 

2*7 

3*8 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 
265 
366 
36 7 

368 

369 

370 

371 

372 

373 

374 

375 
276 
377 , 


C 

c 

c 


c 

e 

c 


373 


379 


360 


381 

e 

382 

C 

383 

C 

384 

65 

385 


386 


387 


388 


389 

- 

390 

- 604 

391 

1 

392 


393 

C 

39* 

c 

395 

c 

396 

70 

397 

75 

19fi 

30 


rnioMrI E I? A (T£HP 0F H **?URE AIRJ/AH/HOUR 
compute temp of peturn air 

DO 80 KNUH*1 f KLIHIT ' 

TRAAnO* 

DO 60 NZOfcFMfZLTHIT 

TBSAsTPA(NZ0WF)') r 7 , CPH(MZ0NE»KHUM)+TRAA 

IF(AHCZONEtKNUM) ,E0, 0) GO TO 80 

60 CONTINUE 
TPAAsTHAA/CAPACVfKNUH) 

00 75 IIxI ?48 

HQUR* r I 

IF(lr.GT.2u)H0UB3H0UR«24 

IFCECOM(KNUM)«»1)70»65»61 

babber-colhan type economiser 

61 i^I^ 6 ’ 60 ' 0 fCON(KNilM) *M0UR, MONTH(MO) ,KNUM, ZONE 
IF CHMINAMC II tKWUM) «GT»TRAA)G0 TO 63 Jf *" UM,ZDNE 
IN COOLING MORE 

IFlKMINANCn^Nl/Mj.LE.TOACMOfHOURjlGO TO 62 

THACHf KNIIM)5HHIN4H(II fKNUM) 

5fn»IH I,KNUM):!HHINAH(I I» l<N| JM3 

rlfJmu ( i T I KNUM,3 ” A)<(HMAXAH,:n * KNUM J 7 ft 0.) 

GO C TO 75 Efn,KVUM) * EC, ‘ 13 HSETPTtII»KNUM5*THA{II»KNUM5 

62 HSETPTClI»KNUM)*H M AXAHtII t KNUM) 

GO TO 70 

IN HEATING MODE 

63 Twff m^ ,KNUH J ,LT ' T0AtH0,HniJB i3 GO TO 6<l 

Icilll !^ NUM <'* At -FA£KNUM)# T OA (MOrHOURJ + CI .-ALFA CKNUW) ) *TRaa 
CSETPT(II,KNUM) = THA(n f KNUMJ • *LFAIKNUHJ)*TRAA 

HSETPT t II *KN!JM) 2HMAXAH ( IT » KNUM} 

GO TO 75 

6fl TM A C 1 1 *KNllH) -HMINAHf II rKNUM J 

C3ETPT(IliKNI/M)sHMlNAH(IItKNUM) 

HSETPTdlf KNUH5=HMAXAMCIItf(NUM) 

G0 f T0 U 7S E(n ’ Km,M) * EQ# 15 CSETPT tn»KNUHj*TMA(ZI t KNUM) 
HONEYrtELL TYPE ECONOMISER 

^j^ZCZONEiIIJ .GT.TRAA) GO TO 70 

rF!Toi?Mo 0 Nn.)p? C rT C $o UH) 'HOUR.MONTHtMO) fKNUM? ZONE 
IFf TOA(M o»HOUR) .CT.TRAA) GO TO 70 

THA ( 1 1 i KNUM ] nCSETPT C 1 1 » KNUM) 

i °“ h °-kour ) ..e.c»etp T (ji.k«u 

,22 *: “»si» ■!’???»"!>' 


GO TO 75 
NO ECONOMISER 


CONTINUE 
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399 

C 

aoo 

e 

4101 

c 

*02 

*03 

4|Q* 

4105 

4106 

4107 
008 
4|09 

4110 

4111 

4112 

8* 

4113 

c 

41141 

c 

4U5 

c 

4116 

c . 

4117 

c 

4X18 
41 1 9 
*20 

c 

*? 1 
*22 
4123 

90 

4124| 

«25 

ioo 

4126 

4127 

110 

4126 

4129 

120 

*30 

*31 

122 

*32 

*33 

12* 

*3* 

*35 

126 

*36 


*37 

128 

*38 

*39 

129 

*420 

9 

**1 

130 

**£ 
**3 
*** 
**5 
* *6 
**7 


**fl 

*4] 9 


*50 

*51 

C 

*52 

C 

*53 

e 

*5* 

*35 

■j 

i 


SET INITIAL VALUES FOR EQUIPMENT LOADS 

DO 85 H0|JR*1*«8 

ZQHELCMOtlR)aO 

ZOHHP CMOtlRleO 

ZOCCfHOUP)=0 

ZQHOOL(HOUS)aO 

DO 85 KNuMal , KLIHIT 

Q«EL(HOUR»KNUH)*0 

OHHP(HOUR»KNUM)»0 
QCC{HOUR, KNUM ) so 
QHOC1L(moUR*KNUH)bO 


™"o^; e E !£ E Stp™^K V ‘ LUE 1BD “ U *->">'>-•1*^ SU8RTM 

DO 136 KNUM»1 jKUIMIT 
TF(AH(ZONE»KNUMJ ,EQ,0) go TO 136 

KsAHCZOMp, XNUH) 

GO TO(9S»IOOillO*lSO,l22 t igii,i34 f jsa.isoi .a 
GS L TO K i?i CKNUH#ICWTRL ' TCOMFT ’ 20NE ’ OH ^^CCr G , HB OLeT «OOH) 

GO L TO K 13? (QH0OL,OCC,OHE1 '* KNUM,ICNTRL ' TCOMF7,ZOM f»'''ROQM) 

Ga L TO K 13o COCC,OHFL,,,HHP ’ QH0OL * JrONE,KNUM ’ ICNTRL » T COHFTtTROOM3 
Gn L To K i3o (KNUH,1CNTf>L,ZONE ' OHEL ' acc ’ QH0OL,TRODH) 
G0 L T0 K 130 CKMUM,T "^ ‘ , " R t»ZONE«0 H EL,QCC»O HB OLtTROOMJ 

GO L TO K 13o (KNUH ’ ICNTRL ' ZONE,OCC,OH flOI -' OHF L»TROOM) 

GO L TO K f3S (KNUMfIeNTRL,ZONe?OCC ' QHBOL,OMEL,7ROOH » TR * CzoN EiJ 
ALL Keo ^^UM,iCNTRL t ZONE,QHELfQCC } OH0DL.TOA,ECON,HO,TPAH,?RoOM, 

DO 235 Ijsl,<!8 
JPL*G(II)aO 

JslJu5!"IJ fII,K,JUM) » F0 » U JFLABtlD-J 
IFCTMCLK(n,f<MUM) ,EG» l) lASTRKsj 
0ATYPE*1 
HOUR* II 

■IF (II ,GT. 2«) 0ATVPEh 2 
IF (II »GT» 2<i) H0UR*tI«»24 
TROOMA(Ii»f<NUM)sTROOM(in 

IF(THCLK(Ii,KMUM) ,eo. o) 60 TO 233 

TIME CLOCK IS ON, IMPLIES EQUIPMENT 18 OFF 

DHELdltKNUMIaO, 

QCC(II»KNUH)*0, * 
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oi 
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<156 

457 

053 

459 

460 

461 

462 

463 
a 6 4 

465 

466 

467 
466 
489 

470 

471 

472 

473 

474 

475 

476 

477 
47S 
479 
430 
451 
432 
463 
«9'4 
43S 
486 
4S7 
438 

489 
690 

491 

492 

493 

444 

495 

496 

497 

490 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 


RHKP ( 1 1 1 KN1.JM J*0« 

OHBOUCII , XNUM)BO, 

233 TROOMtII)si' 

C 

C EQUIPMENT IS ON J SUM ZONE EQUIPMENT LOADS TO AH EQUIPMENT 

C LOADS ANd COMPUTE MAX TONNAGE FOR AiRHANOLER 

C 

AQHELf II *KNUM) saOHEL( II ♦ KNUMJ + QHEL CIX»KNUM) 

AQHHP C IT « KNUM) a AQHHP (IT »KNUM) +0HHp (JItKNUM) 
AQCC(n*KNU“)*AOCC(n»KNUM) + QCC(II»KNUM3/l2O00 B 
IFMI ,E0. 1 .AND, MO ,E(3, 1) MAXTAH(KNUM) = AQCeai»KNUM) 
MAXTAH(KNUM)*MAX(MAXTAHfKN!JM) *AOCC(II»KNUM) ) 

AQH80L( 1 1 » KNUH) sAOHBOL (II , KNUM) +QHB0L( 1 1 * KNUM) 

235 CONTINUE 
136 CONTINUE 
C 

WRITFC6, 133) 

133 FORMAT 1 1 1 1 *T.3» *MO • • T6» I ZONE 1,T11,'DAY“ HR! »T20» I INFILTN* ,T30, 

7 l GLASS I * T37» * TR A NSW I N I « T49* ILIGHT » » T56, fPOEPLE « t T64, 

7 • EQUIPMENT I * T75 » • NF’ 1EAT SUPPLIED RESULTANT COOLING ' * 

771.1 2 « l HEATER BOILEf PUMP » VT1 1 * I TYPE I *T21 « t (8TU) ! * T30 » • C8TU) t» 

• 7TJ9 » t (BTU) • *T49* l (BTU) ' »T57t « (BTU) >?T66, t (BTU) < ♦ T77t » (STU ) * t 

?l AIR TfMP RM TEMP (TONS) (BTU) (BTU) (BTU)I) 

C 

C COMPUTE PROPER ROOM TEMP, ZONE MAX TONNAGE, AND PRINT OUTPUT 
C 

DO 134 Is 1 • 48 
DO 410 KNUMsJ tKLIMIT 

TROOMf l)-TROOM(I)*TROOMA(I,KNUM)*ZCFM(ZONE,KNUM) 

TRDOMA(I,KNUM)sO. 

ZQHEL ( I IzQHEL ( T, KNUM3+Z0HELC I) 

ZQHHPCl)sZOHXP(n + QHHPa,KNUM) 

ZOCC(I) sZQCCCn + GCC ( I , KNUM) 

ZQHBOL (I ) *ZQHB0L ( I )+OMBOL ( IiKNUM) 

410 CONTINUE . 

TROOM(I)sTROOM(I)/ZCFM(ZONE,ll) 

Ts7QCC(I)/12000, 

IF(I oEQ. 1 .AND. MO ,F0, 1) HAXTZNCZ0NE)»T 
MAXTZNC ZONE) «M AX (MAXTZNC ZONE) ,T) 

Z»2*ZONE-l 

DATYPEsl 

HOUR*I 

IFCI.LE.24) GO TO 132 
Z»Z+1 
0ATTPES2 
HOURsI-24 
C 
C 

- 132 IF (I ,EQ. 1 .OR. I «EQ, 25)WRITE(6,666) 

666 FORMAT!/) 

IF (JFLAG(I) .ED. 0) GO TO 137 

wfl tTEC6*l31) MONTH (MO) *Z0NEt DATYPE*HOUR»QINF (HOUR) * QGL AS (HOUR) , 
7QWAL (HOUR) tQLIGHT (HOUR »Z)?QMOP(DATYPE, HOUR) ,(3E0UP (HOUR ,Z)f 
?QSUM(OATYPE, HOUR) tTSAZCZONE, I) ,TROOM(I) ,T»ZDHELCI) ,ZOHBOL(I) , 

?ZOHHP(I) 

131 FOR M AT (lx«*3, 214*15, IX, 7F9.0,2F9.1, IX, t*l,F7. 2, 3FB.0) 

130 FORmaK//! * ASTRI3K INDICATES TIME3 AIRHANDLER IS OFF DUE TO TIME 


PAGE 
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513 
Si ^ 

515 

516 

517 

518 
5J9 
5Pfj 

521 

522 
5? 3 
524 
5?S 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 
339 
540 
5<U 

542 

543 
Stitt 

545 

546 
5ti7 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 
565 
569 


+ etocKi//) 

CO TO 134 

^OWAL^hoUR) foL YGHT^KOUPfZ?^ fQINp f HtfUP] * OGL AS (HOUR) ? 

•JOSUH{DATyPE,HOUR-J ♦TSA?C70NFt?i r i W ° EaUP C H0UP t • 

?20HHPCI) iMZCZ0WfX) f TRO0MCX)tT f Z0HfLCn r zohbol (I ) * 

134 CONTINUE * f T5r t lC»7P9*0«2F9*l f IX* F8 , ? f 3F8 ,0) 

IPCIASTRK .EQ, i) WRITE (6 f 138) 

500 CONTINUE 

END ZONE ev ZONE CALCULATION 

>»> '» 't*. ... ... ((l m it 

PBIXT »mnj»OLES BELATED IBFORMATIDBS 

DO 700 KNUMal tKLIMJT ■ 

IP(MO.NF.l) GO TO 560 

vu?« A . M 5 KNUM)eHThAH ^ N UH) 

YMAX AH£ KNUM j AXAH(KNUM) 

‘’Y"sS 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


WRTTEC 6 » 666 ) 

? f^0UR + 2a *KNUH) 1 AQHHPf h° CC *KNUM 

AL,« 7 *r i ' gAH(M 0 UR * 2 a '^liM)fHMAVAHfHmipf^^ K E! 01 MHp f H OUf?+ 2 a»KNUK)» 

WRITE (6 1 625) HINAH(knuM) 

WR 1 TE( 65630 ) H*XAHCkNUH) 

625 FORMAT £TgO» I + MONTHLY 1 HJN SUPPLY AIR TEMP 

53 ! EoS?^^w^ e0,, * ^ 0NTM '«-v auFPLv'AiR TFMP 

SUM LOADS FOR COMPRESSORS AND COMPUTE THE MAX TONNAGE 
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570 

571 

572 

573 

5 7 “ 

575 

576 

577 
57 fi 

579 

580 

581 

582 
553 
58 “ 
585 
5 86 

6 57 

588 

589 

590 

591 

592 

593 
590 

595 

596 

597 

598 

599 

600 
601 
602 
603 
60 “ 

605 

606 
607 , 
608 

609 

610 
611 
612 
613 

615 

616 
647 
618 

619 

620 
621 
622 
623 
62 “ 

625 

626 


C PER COMPRESSOR 

e 

c : 

DO 800 CWU W » 1 »C LIMIT 
DO 750 TNDEXaitKLIMIT 
KNUMaCOPWFSCCNUMt INDEX) 

IF ( KNUM « E Q . 0 3 GO TO 800 
DO 750 HOUR= 1 i “8 

CQCC C HOUR f CNUMJaCOCCf HOUR fCNUMJvAQCCt HOUR rKNUM) 

IF (HOUR # ED. 1 vAND. MO ,EQ. 1 ) MAXTCP ( CNUM) * AGCC C HOUR t CNUM) 

MAXTCPCCNUM)aMAX(MAXTCP(CNUM^COCC(HOUR»CMUMn 

CQHHP (HOUR t CNUM) aCGHHP (HOUR t CNUM 1 + AQHHP (HOUR* KNUM) 

750 CONTINUE 
800 CONTINUE 
C 

C COMPUTE DAILY TOTAL TONNAGE ? HOURS OF WHICH THE COMPRESSOR 

C IS OFF AND YEARLY CUMMULATED TOTAL TONNAGE 

C 

DO 900 CNUM* 1 iCLIMIT 
WRXTE( 6 f 632 i 

D AT YPEcj . 

DO 900 I T* 1 *“8 

IF(II»EO ji l # ORiH # EO »253 WRITEC 6 f 666 ) 

HOURall 

IF ( I t *LE« 2 “) GO TO 950 
HOUR* 1 1 « 2 “ 

DATYPFa 2 

950 IFCCDCC(TItCNUM) , t T • 0 , 00 1 ) COUNTC*COUNTC + 1 
DCRCCsOCQCC+COCC(II*CNUM) 

. WRITE ( 6 1633 ) CNUMt MONTH (MO) ♦ DAT YPE * HOUR • CQCC ( II f CNUM) 
IF(n,NE. 2 “ a AND.II.WE,“ 8 ) GO TO 900 ’ 

WR I TE ( 6 f 63 “ ) DCOCC t COUNTC 
FLIPaO 

IF t I T #EQ tt “ 8 ) FLIPS 1 

YCGCC 1 (CNUM)sYCQCCl CCNUM)+OCQCC*FLOAY c 1 -FLIP) 
YC 0 CC 2 (CNUM)sYCGCC 2 CCNUM)+DC 0 CC*FL 0 ATCFLIP) 

DCOCC-O, 

COUNT C *0 
900 CONTINUE 

632 FORMaK lHltT 3 f <COM-f ?T 1 1 » * MONTH * f-Tl • DAY» HOUR TONAGE 1 *7 

T l x y • PRESSOR t tTl 8 f 1 TYPE * ) 

633 FORMAT ( I 5 » 6 X t A 3 * 2 16 * F 9 # 2 ) 

63 “ FORMAK 1 H+»T“ 7 * t* OAILY TOTAL MtFS. 2 t* TONS » tT 79 » M » • 

?T 85 r •COMPRESSOR OFF 1 f » 12 1 I HR • ///) 

C 

C CALL COP AUBROUTINE TO COMPUTE COOLING LOADS IN KW BASED 

c on the refrigeration cop 
c 

CALL COPICOCCt CQHHP tTOA^ CLIMIT f SIZE» MO) 

c 

192 SUMHlltO.O 
SUMHPleO.O 
SUMCClsO.O 
SUMBLUO.O 
3 UMHL 2 s 0.0 
5 U M HP 2 sQ ,0 

. SUMCC 2 * 0.0 ... ^ 
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627 

626 

6?9 

650 

651 

632 

635 

634 

635 

636 
637 
616 

639 

640 
64 t 

642 

643 

644 

645 

646 
647 
645 
649 
5/50 

651 

652 

653 

654 

655 

656 

657 
653 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 
677 

670 

679 

630 

681 

682 

603 


200 

C 


205 

210 

e 

c 

c 


c 

c 

e 


3UMBL2*0,0 

sum A/C EQUIPMENT LOADS IN KW FOR DAYTYPE J & 2 

DO 210 KNUM*1 ,KLIM|T 
DO 200 1*1,20 

SIJMKLUSUMH 11 + AQMELM,KNUM)/ 3013 . 

SUMhPlsSIJMHPI + AQHHPC IfKNIlM) 

SUMCC1*S'|MCC1 + AQCC( I jKNllH) 

SUMBL1=SUMBLI + A0HB0LM,KMUM)/(B0LEFF1'3«13,) 

00 205 1*25, its 

SUMHL2*SUMHl 2 + AQHE'L ( J tKNIJM) / iill3« 

SUHHP?sSUPHP2+ AGHHP ( J »KNUM5 

SUMCC2=SUMCC?+A{JCCri,KNUM) 

SUMBL2sSUMBL2+AOHBOLfI,KNUM)/(BOLEFF*3ai3.) 

CONTINUE 

fill OUT month energy CONSUMPTIONS AND ENERGY COST 

FINMQNtMg, 1 )*LITPR( 1 ) *20 , 9+LITPRC2) *9,5 
FINMONtMO,2)aE0PHR t 1) *20 , 9+EOPWR (2) *9, 5 

FINMON(Mo f 3 )aTTLACl* 20 . 9 +TTLAC 2 *R ,5 

FtNM0NCM0»<D*SUMeCI*?0.9+SIJMCC2*9,5 

FIHMON(MO,5)*SUMHL1*20,9+S1JMH|.2»9.5 

FINMONCMo,8)aSUM8L1*20.9+SUMaL?*9.5 

FINMON(M0t6)aSUMHPH>20.9+Sl)MHP2*9.5 

FINMON[MO,7)*FINMON(HO, t )+FINM6NCMO»2j+FINMON(MO,3)+FINMONfMO,U) 
* +FINM0N(M0*5) +FINMONC H0»6) 

FINMONCMO«9)*FINMON{MO,71*DKWHE*FTNMON(MO*8)*DKWHT 
COMPUTE THE KWH FOR THE BUILDING 


DO 3337 Ksl»2« 

LAX=M0*2-1 . 

KWTlsO 

KWT2aO 

CHI*0 . 

CH2*0 

LZ=2*ZLIMIT 
DO 3335 N*1,LZ 

IFCMOD (N, 2) .EO. 1) GO TO 3336 

KwT2*KWT2+KILGHT(K,N)+KFLGHT(K,N)+KEGUPEtK»N5+KEGUPH(KtN) 

GO TO 3335 

^Ii??.nI l+,<ILGHT(K * NHKrLGHT{l< ’ N)+KEOlJp e(L,N)+KEQUPMfK»N) 

3335 CONTINUE 

00 3339 KNUMnl tKLIHIT 

CHl*CMl+4QHEL(K| KNUMl/3yt3i+AGHHP(K,KNUM3+AOCC(K,KNUH) 

-„ a G ^;CH2tAGHEL(Kt20,KNUM)/3«13.+AOHHP(K+2R,KNUM) + AOCCtK+2«,KNUM) 

3 A 3 9 CONTINUE 

KWHtK,LAK)*KWTl+ACERYl/2fl»+CHl 
LAX=LAV*1 . 

KWH(K*UAX)oKwT2+ACERY2/2«.*CH2 
3337 CONTINUE 
90000 CONTINUE 
C 

C * *■ ♦***•* * * * * * * *' * * * .# 
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cn 

UD 


iS 

80 


<o 

§8 


* * .* 
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684 

685 

686 
687 
6*8 
684 
640 

691 

692 
643 
69 4 
695 
646 
697 
6*38 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

7 1 1 

712 

713 

714 

715 

716 

717 

718 

m 

720 

721 

722 

723 

724 

725 

726 

727 

728 
7?9 

730 

731 

732 

733 

734 

735 

736 

737 
733 

739 

740 


C 

C gNU HOKfH BY MONTH EVALUATIONS 

C 

C 

C PRINT KWH T ABIE 

C 

W9TTE(6»777) CKt«*1^26) ■ 

777 FORMjTCM'l t // l^Xit HOURLY CONSUMPTION IN KWl*// 
+ 7*i t DAY I /nCt*MONTH TYPE » * 24 S2X ♦ 1 2 1 i X) > 


LMs?*maxmO 

op anoco lax*1iLH 
tF(MODUAXi2) iEOf n GO TO 779 
isLAX/2 
MS? 

GO TO 301 
779 L*ISLANX 

SO 1 WPITEC6177S) L«M#( KWH (X < L AX) i K«tf24 * 
778 PORHATC/ ?X i!2i 5Xi II i2X*24UX * I4l ) 


40000 CONTINUE 

C 


4 9 9 


wRITE(6i6R0) 

690 FQpMATUHif tl5C'*»)/lH0t *20NE HI N 1 HR MAX l HRW 

7T43I »055tGNMT57t ‘PRF3ENT1 iT7ai1HAXlMUMV 

7T11 1 *HEAT GAIN1 »6X* *HfAT GA IN t *t44 > I CP* I , T59 i » CF* UT72 t I TONNAGE U 
7/T10 p itwHOLE YFAP) *f3Xi< (WHOLE YEAR) I /T13 f < tRTUl 1 % T28 >» fBTUl I //) 


3 


CQMPtiTg DESIGN CF M FOP zones and print summaries for zone 

AIRHANDLFR AND C0«PPf5S0R RELATED INFORMATIONS 
00 6 cio EpNfal »ZL! H TT 

l)EZCF M c M A)(fMAX0(ZQNE)/{H3»* H LT)t APS (H1NQ (7PNE ) / ( 1 5«*MLT 5 3) 

WRITE tfriftR^TZONp ZONE) » KAXflCZONE) »DEZCFH| ZCFM {ZONE* 1 1) » 

+ MAXTZNCZONE3 
6«0 CONTINUE 

WRITE ( 6» 655) 

nRITE{6ifi06) 

WRITE (6«607) t«NUM|HlNCFM{KNUM) qMIALFAIKf-lUHSiYMINAHCKNUH) t 
SVHitXAHtKNUHlt^AXTAHCfNUNItKNUMRltKLlHn} 

605 FOB«*T(tU»Fl3.O*Fl5*O«0X»F0,O»6XiFa,Or9X»F6.t/) 

606 FQBMATUKOtTHf '■* DESIGN CONDITIONS * //• 

A tX|lAtRUTJ«t3('V|ABLT»»5X)/» 

♦ JXi»HANOlFR'lU*'MIN CP M *i 

?3X*I M 1N AlFA»iT33»«wiN TFM p MAX TEMPI »T57* I MAX I /T33t 
? ISUPP ATR 5U PP AIR I tT55» • TONNAfiE > /) 

697 FOR M ATt/l3*Fl2«0»5XiF5«3»2X*3FJl*l) 
wRITEtti65SJ 

655 FORMAT ( 1 HQ ♦ 1 15 C 1 * 1 ) ) 

WPITE(6i6AP} 

680 FORMAT {///1 1 5 C )/JM0*TH» ICON- 1 iT J 5» I YEARLY ' * T?6 * I YEARLY ■ / 

?iX» 'PRESSOR' »m* i TOTAL' fT29*lHAX i /T>3* '(TOUHRS)' »TH7» 'TONNAGE' »/) 
00 850 CN'jm* 1 1 CLI M I T 

YCQCC 1 (CW' m )fYCOGC 1 tCN'JM) »20«9+YCOCCZCCNUM) *0 ,5 * 


* 


}~4 

cn 

o 


DATE 062373 


PAGE 


EC* PaQGSA* 


7Ct 

742 

7B3 

744 

74* 

746 

747 
*43 
74* 
7*0 
7*4 
7*52 
753 
7«?4 

755 

756 

757 
750 

759 

760 

761 

762 

76 3 

764 

765 

766 

767 
7b3 

769 

770 

771 

772 

773 

774 

77 ~ 
774 
777 


677 


wRrTE(6»635)CMUHlYrOPCUCM!JH) *«AXTCP(tWUH) 

YToce c YTncc*YC9cri 

&*«$ FDR*UT(I5»5XtPHM i 5***6. 1/1 
*50 CONTINUE 

KP!T5(6i6771vrr;cC ^ _ , lCM4M1 

F0* m AT(/T 3? 'TOTAL 1 iP13*l/iH>« 115( I* ■>) 

♦ MT1 Si^O»'E» , * t 2*» , ^ Dw ^ ri,T(,1|IPO#,EHI * T53,,CMI, ' LFR * 6?r 

: 4 ^:Ssrs 4 ;: 5 is:iTia»a 8 S^:i;Ti«:: 5 a?^«KiUK:ii 5 AT»*. 

* TH9» •nan.ASS'/) 

P«IM H P .,Th BY «0*T* *« E MY COMUPPTTOW, mjLY Tnm f^Y 
COfVsM^TTC^S, iM) YFABLY E1E*0V COST F Cfl THE BUILDING 


*BlTr tb^SspSNTSfMOl . (ri»J«nN(H0»1) *1*1 »*1 

FORMAT l*ol«T5*A3fTl3i9{EiO*4f3}C)) 

DO 260 Tili9 

* ,# F7»i M CN 1 13 f I )*PIN M QN( 13 f t J+FJNPONC Ji 15 
rOMtWE 

STOP 
END 

' * 

C 

C END PBC8PAM 

', ...» * 


240 

249 


250 

260 

270 


ORIGL 
OI? Po 


EC* 5 °ROGR^ 
t3592«vrcCU.ECH0^V 
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PAcr 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

n 

12 

13 

14 

15 

16 

17 

18 
tn 
;;ij 
ei 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

3« 

35 

36 

37 
30 

39 

40 

41 

42 
03 

44 

45 

46 


1 sc w D w Jit fc w o thr data and print out in proper 


C 

C POR^AT 

»KF{,(JMT(?«t16> *KEQlJPf 

2Juek!eJf* 1 1 Mf ?<MN) » ECONO 9)*A*«<fct 10) iSFTPTSC?* 10) »SXZF(3. 10) 
01 0N5 JPfc £ *£*}( 1 0 1 *HFPRA£# 3 tZCP M C 0 fl 1 ) 9 VfL f P W TSUWf A\ , TwTNf 

dimension uof^.t^^.roPOESt i.mfI ? j«) \tl !i?V,cf} (I*, (8> 

oi“P‘!5m * ' jfQ,-,, cs ,rTPT t «».to)*HSf.TPTe«M: j6;.«nc?Z) 

A ^‘J f ’ , '»CO» , “PS#?L«t»?|.lMXTiAHr?Li M lTtM|PATFl | »»T«CLKfPfl»l 0 ) 

EHuu2[’^ 6 ^ A/ A*A< (<}.A)**SLASC9,6).Tr.Fxm,S).SNAr>FfR.a) 

CO ORtMWiPMjMPiPH Iw{.» hQiVHF *VwL»AR5P«T 

«2uu2^!! / . <lS L JM ' T ^ ft , Z * T,, ' 4, ?CP M «CSETPTtM.SE?PT*HEATFP*XH»wFPPA 

C5 r?r£J!^ / BL('B*KLlMlT,ZLI H IT*V(3l *T$UHiTvi;lN* AW, ALFA»SIZE«C0PPES» 

PEAU NQP,KILGhT* kplGHT ♦ XfOijPEi KEOliPM tLATtl ATJ 

s'S.’oN S2F , “in^j;?;^r^?j; TMA, “ s ”“’ ,PH,B '' <a ” PM, " L,8j 

DATA /PI/3.t«l59/ 

C 

C 

LAT1*LAT*J AO./PI 

, nnft - r?I 1 ?°? 5 .» LDG * 7 <*I M * T( KLtHJT i AM L ATI 
1000 FORM*T{lHt*i **• ENE»fiV CONSUMPTION ESTIMATION FOR 

♦ I «M MjMRFQ PR WACROZONES B 

* ' *** N!!mpsp OF AYRHANDLERS a 

♦ I *•* ABSORPTIVITY CF rfALlS A>: 

+ ' *** LATITUDE ANGLF for TM; l 

WR!TFCb,U00) 

1100 PORMAH/ 50(i*i). « 70NE INPUT data > 1 55( I $ l ) , //, 

* » *** XAU AREA JK 5(3. FT, I,/, ” ' 

* !c? B Tce T ti!I?* , J* T*?,* ' s ! ,Ta5f 'Srt'iTJlf iwl |T37| INHI »T«3»-I5E« »Tl|9t 

♦ '£’**55. ‘iT61,lM, T *5*l#00Fi./»i ZONE') 

00 1 ?0{! I»f*ZLI w lT ; 

U (*hAU...J, Jc 1*9) 

1150 FORMAT ( I6t5x.9F6,0) 

1200 CONTINUE 

►:RITF(b.l210) 

1210 FpR'lfi V{// 1 «** rt ALL ADJACENT CONN 


..-ariON 


BUILDING 1 1 A At / 

■ *15*/* 

1 »F5 ,2* /» 

«*f5,0,/) 


(-* 

oi 

ro 


+ 

♦ 

* 

♦ 

♦ 

❖ 


I 0 FOR 
/•TcJ0« * 
Tdfl.l J> 
T <1 0 * • % 

l 


NO KALI OB PARTITIONS** 
1 FOR AN INTERIOR 
FOB AN INTEBIPB 
FOR AN EXTfPirr 


iN5 l*T00i 


ORIFnTATI ON * * T 1 9 * * 5 s « Tea **bw**T3l*IW 


47 


DO 1230 l« l » Zt T M I T 

48 

#- 

WRITE C6*t??0) l»(ADJCJ,I),jat,9) 

49 

1220 

FdSMAT(l6»PX,9(I5ijX)) 

50 

1210 

CONTINUE 

•51 

C 


52 


ISETstl 

53 


00 1250 M#l*9 

54 


DO 1250 Ns 1 1 5 

55 

1250 

1F(ADJ(m,N) ,EO, J) ISET*1 

56 


IF(ISET ,EO, 0) GO TO 1290 • 


T NtINfi A C0N3TAN7 TEMPI,/, 
-INR A UNCONDITIONED ZONE If/* 
ED TO AMBlENTI*//, 

»T37, INWI*t«Si « 5E»*T«9* 
ZONE i ) 


EC* PR OGR*M 


57 

s« 

59 

60 
61 
62 
63 

6a 

65 

66 
67 
6a 

69 

70 

71 

72 

73 

75 

76 

77 

78 

79 

50 

51 
82 
S3 
aa 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
10 ! 
102 

103 

104 

105 

106 

107 

108 
109 

no 
1 1 1 
112 
113 


WflITeCfrf 1260) 

1260 FORMAT t/ /t *** ADJACFNT TFMP£fUTURF * »/f 

«« !UI 55 ’ NE ,T61,,n, * t<| 5»'boof»,/ { « zonfij 

RO i 3^0 1*1 *Zlt M IT 
HBITF(b,|??0) T»(TNEXT( J»I) »Jst *8) 

FOBMATdt.ax.PFfe.U 

CONTINUE 
wRJTr !6»1292) 

FORMAT!//, **# FRACTION OF UNSHADED AREA OF *ALL»</, 

ORlFN T A T I n Nl,TI<5|iS5,T25t«Sw»,T3l,i«»,T37 ( fNWl,T<J3»i8el,T«1f 


1270 

1260 

1290 

129? 


l?‘S 

12“;’* 

nov 

1350 

i«oo 

1500 


ZONE*) 


«*/* 


' »T«3* ■ $£! ,TR9, 


1550 

1600 

1700 


1500 

1900 


2000 


* 1 E ' *T55» 'NFt * Tfe| i IN» *T65t IBOOFI «/» t 

00 129fc 1^1 *ZLI H IT 
wflirFC6i!)295) In !5 haOE!JiI),J»i,<}) 
FnNMATCl6tPX»9F6,l) 

CONTINUE 
WRlTEl&t 1300) 

FOBHATt //, i ««, CJ.A3S AREA IN 30. FT,, 

K ' 0H i| , < T * T T0Nl.T!9.l3l,T25«>3W«»T31,lhliT37|lNHl 
> T 5‘5.»NF l »?61«'N«,T65,tROOF»,/,l ZONE ) 

no 1350 T»1 t?).IMJT c c 1 

CCNTTNUF 11505 U tAGlAStJ.I), J*l,9) 

WRITEtbfjuoO) 

^JSl,iSCHEOULE«,//H 99 OCCUPANCV LOAD«./J 

ZUNT«?97LI«rT 
00 1600 T*1»ZIHT 
IZ* C t+ 1) /2 
I COUNT* T COUNT t 1 

1^* 1*5*50) IZ, ICPUNT* (NOP(J,I), Jb1,2«) 

FORMAT! TOt 2 X,I 3 iiS, 20 F 5 .n 
I Ft I COUNT ,E0, ?) ICOUNT*0 
CONTINUE 
«nrTF(6»)70n) 

format!/, f* fluorescent light in kh , ,/) 

WRITFC 6, 1 500) 

DO 1500 1*1 ,2LHT 

iz*(t+n /2 

ICOUNT*icCIUNTtl 

?S J T 5rSi» 7 50 e« , *S% ^COUMT* c XFLGHTIJ,!), J«l,2fl) 

IF! ICOUfiT ,£f), 2) IC0UNT«0 
CONTINUE 
*RTTEI6, 1 900) 

FORMAT!/, «♦ incandescent 
HRITFIb, |500) 

PO 2noft I*| ,ZLHT 
IZ*!T+n/2 
ICOlJNTslcOUNTfl 
«R3TF!6, J550J IZ, ICOUNT, 

IF! ICOUNT 
CONTINUE 


LIGHT IN Kw I,/) 


.ER, ?) ICOUNT*0 


f KILGHT(J*I) *J*1 ,20) 
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110 

115 

116 

117 

118 
11 *? 
ISO 
121 
122 
t?3 
i?o 

125 
... 126 
127 
1S3 

129 
no 
III 

132 

133 

130 

135 

136 

137 

138 

139 
100 
101 
102 
103 
100 

105 

106 
107 
tog 
109 

150 

151 

152 

153 
150 

155 

156 

157 

158 

159 

160 
161 
162 
163 
160 

165 

166 
167 
163 

169 

170 


K9ITE(6*2100) 

2100 FORMAT!/* ** ELECTRICAL EQUIPMENT LOAD IN KW1*/) 
w9ITE(6tj500) 

DO 2200 T*1 «ZL«T 

TZ=CI+1)/2 

TCOUNT=IrOUNT+l 

»R t TE (6 * I 550) IZ, ICOUNT f (KEOUPEt J*l) ♦ J»1 * 2«) 
JFtlCOlW .EG. 2) ICOUNT*0 

2200 CONTINUE 

wRITflbi J300) 

2300 F09Mit(/» ** MECHANICAL EQUIPMENT LOAD IN Kw't/) 
WRITE (6* 1 500) 

DO 2000 tslfZLMT 
TZ-CI + D/2 
TCOUNTsIfOUNT+1 


wfilTFt6»1550} IZ* ICOUNTi (KEQURHf Jt I) * J*1 *2U) 

TFt TCOUnT .EG. 5) ICPUNtao 
2000 CONTINUE 

wRITFCe>»2500) 

2500 F00 M AT ( / • MACROZONE t »T«6* • 1 1 » T50» ' 2 * * T62 * ' 3 1 *T70 * "J ' * T7# i f 5 < 
+ Tflfif tftt |T90 * *“• *T 1 0? t 'ft* t/3 
WRITE C 6 *?6003 (VOLtT) »I*1»ZLI M IT) 

WRITEC6*?700) CTSUM(I)*yal,ZL7MITJ 
wRlTEt6i?R00) ITwiNf I)»t*J»ZLI«1T) 
wRITE(6*2900) (UR(I) »T«1 fZLIMIT) 
wRITEt6t3000) (Uwn)iT*l»ZLJMIT1 
2600 FORMAT { | VOLUME OF ZONF JN CU. FT, l.BFB.l) 

2700 FORMAT ( l SUMMER INSIDE DESIGN CONDITION (DEG n»*8F6.2) 

2SO0 FORMAT ( i WINTER I NS IDF DESIGN CONDITION (DEG F)l»flF8.23 

2900 FORMATt » HEAT TRANSFER CPFFF FOR WALLS l,aF3.2) 

3000 FOR M AT ( I HEAT TRANSFER COEFF FpR ROOFS **6Ffl.2) 


WRITE (6*31 OOJ 

3100 F0»M«T(//50( 16'S* • ATR HANDLER DATA l«60(l*t)t/i 
+ • ** AIR HANDLER TYPE 1/J 

WRTTEt6«3?00) 

3200 FORMAT(i AIRHANDLER NO. • »T21 * 1 1 1 *T29* 1 2 ' * T37* l 3 » t T«5 * 5 <1 I * T53* 
+ '5<*T6|»ift»*T 69*«7' *TT7» Ifil *T8S* '9' *T92* ' 1 0 < */*T5* 'ZONE 1 3 
DO 3300 ISJ.ZLIMIT 

wRITF( 6»32503 I* CAH(I*J)t J*1*KLIMITJ 
3250 FORMAT t T8*7X 1 1 0 ( 16* 2X3 3 
3300 CONTINUE 


» 


wB TIE ( 6* 33103 

3310 FORMAT (//i ** AIR handler SCHEDULE WITH time clock 1/3 
wRITE(6«33203 

3320 FORMAT ( T7 * 'DAY J * /* ' AH TyR|I t * Tj il * I } » *Tl9 * ' 2 ' *T2fl , 1 3 I , T?.9 * 111 ' * 
T39*15'*T39* '6 1, TOO, 1 7 ' *T«9. • »' *T5« * <9 1 »T5*« ' 1 (I ' * T63 * I 11 ' *T&8* 

♦ 1 IS'*!?!* 1 n»»T78«»1«' *TW3, M5'»T88* • 16» *T93* « 17 ' ,T98i ' 18' *T103» 

t «t9'tTlnR»t?0i,Tl!3,t?lUTna.'22'»Tl?3»i23t*TI38»l2«l/} 

DO 3350 jnitKLIMlT 
DO 33an J»1 *08 


CL K C J) s ' ON • 

IF(TMCLKfJiT) .ED, 13 CL*(J)» »0F*-« 

3300 CONTINUE 


JJ-l 

WRITE (6* 3 3953 It JJ* (CLK(KK3 tB«sl *203 


h-L 

a\ 


EC? ?ROGRah 


m 

175 

173 

174 
173 

176 

177 
17a 
179 
I BO 
1*1 
1*2 
1*3 
!*« 
ias 

1S6 

iar 

us 

1*9 

190 

191 

192 

193 
19« 

195 

196 
J 97 
19B 

199 

200 
201 
202 

203 

204 

205 

206 
207 
203 

209 

210 
211 
212 

213 

214 
213 
216 
217 
213 

219 

220 
221 


3350 

3400 


3450 

3500 


33«5 *° B "yp«»2X»ir*rJXt20f23r,*3)} 

CO^TliuE 33fl?5 rT JJ*fClK(WKJ t KK*25j«8) 

Q,n ' n m CISTaiguTlOM zu CFM , /} 
00 >?t»ziiKjr 

CONTINUE 
'lO 3690 !*liKLTKIT 
EC( JjsiYrsi 

H5iT(I)si£LEC' 

SCOV(I) ,KEt 11 Ef [71 si^rt t 
3600 *GA$ I 

sjgjS j kisb-s^*" 

PnoM^?’t I0 2 J f H £* T fJ)tJt.l,KLIHIT3 

POBMirt I HOT SJECK SPTPOlur »»10P« a, 

> PEBCENT VENT *J P « 

: ws «r,f 3 w :!£•&!!! 


3600 

3900 

97100 

«X00 


POWM*r[ 

PO»KftT( 

POS^iT^ 


HBlT£(fe» qEp^j) 

* 200 * 7 HH? f 2 s?;f^ K * 5 S “ ! " 2 xS^ * ,,f 

^ITFC6t(i3flfn it f prtftap . - . - 


• » X3 » * COMPRESSOR 1 ?1 0J5 


«300 FSKfif f * 3 • J»1 • toj 
«OO0 COMTIVUE 1 ,DUR ho . CONNECTED T 0 

- , 

flflOO FO»W4T( 130(1*1] ///) 

BETUfW } 

EMti 


PPHT,3 VIC.30LAB-V 


OATE 062370 PACE J0 


cn 

07 




EC* 5 PtfOG^A* 


1359?*YIC 

1 

2 
3 
a 
3 
6 
7 
6 
Q 

10 

n 

12 

13 

14 

15 

16 
17 
16 

19 

20 
21 
22 

23 

24 

25 

26 
27 
26 
24 

30 

31 

32 

33 

34 

35 

36 

37 
35 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


CU.SCL* 

C 

C 

t 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


100 


c 

c 

c 


c 

c 

c 

c 

c 


$nUP StTROUTlNE C0*PUTRS THE SHUP INTENSITY AMO THF smio rurorv 

.'STJSJ *«» «« «..»! JK 4 VB t *K%S^S., 

E 3 - F A w • ^ 9 X E * i A T T ON AN0 RT?FS nF tw? nicti CiiDr^r 

1 % W I!; , % PFRFf,fiM ?ME C^MPUTATioN PM ?fl HOUR PERIOD lio * 

IcL ! SULT MUt ?,J ™ s SICmR.ORn) A fun OSU«f»B) 

i«E &«"!:,£>}"* ’* ’ ,E " iS " 3E0 T “ E S™"™* To’cOMUTt 

SUBROUTINE S0L*a{TR* rC CF»t0A,SI»0SUH.7»O 
CGMmON/GFC/ P»DFC!.*»SUC««0 
C0«M0'</ARFA/ AwALCB.A). A0LAS(<5»S) 

REAL ION 
INTEGER IN 
REAL LAT 

DATA /PI/3,1«15«J/ 

T0A(12,2«), SI(2U.<95. 0SUM(2«J ,eepfj2) 

CO^^ON/CONSTJ/L AT.TA'J.GRREFLtUGLASS 

SET INITIAL VALUFS TO ZERO 

DO 100 1*1 *2<j 

<JSUMm*0.0 

DO 100 JstltO 

3ltI»JJso.O 

CONTINUE 


1000 


S« P ?o TE »;»f 3E {JK.EF.SM IS ’’ J ‘‘ SET ,0 OE'EE-IUE T»E DAYLEUGTH 
CJ A«E WITH the HOUR ANGLE to see WHETHER THE SUN IS PRESENT 

KALHTBAtJ(]S(*»TANfLAT)*TAN(OECJ 5 

no 6 oo i*i » 2a 

SALT<0, 

IDN»o, 

HAs{l 2 -n*iE,*Pi/i«o, 

DTsTnAlMn»I)«TRA 

IFtABS(HA) ,GT,HALHT) GO TO 1000 

COMPUTE SUN RELATED VARIABLES SALT. ZONf 3AZH 

** » t » 9 n? ) Gn TO 1000 

tON*A/S*P(R/$!N(SALT)) 

SAZMa ASIN(C05CDECT*SIN(HA) /COSISALT) ) 

irr 

CONTINUE 
OSUMCIJso.O 
00 500 

IPC ABSCAWALU, ZN51.LT. ,01 ) GO TO 500 

W T*r 

IRC J ,6F* 91 WTsO.O 

VSSstl.-cCOStwtn/S, 

wAZM=cj-n*Pi/a, 


DATE 062378 


E£P PRQGRA* 


5? 

58 

59 
*0 
61 
62 
63 

65 

66 

67 

68 


500 

600 


«LT. 0 * 001 } HAsO.OO t 


7P^ t „ zr 1 V4V,,i ' MA«n # 00t 
*5T* *0 w^2 w »**i J*4) $|i r /a 

W3AZH3$A£H* Cw*2^*wa/aPSCh/0 3 * 

p 


sra«j) 
qssski 
OSUMCD sfjSu^fn+iJS 
coNrjfiup 
CONTINUE 


RETURN 
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3 
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5 
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10 

11 

12 

13 

14 

15 

16 
17 
15 
1 9 
20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
35 

39 

40 
4 l 

42 

43 

44 

45 

46 

47 
45 

49 

50 
*51 

52 

53 

54 

55 

56 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


TRANS*V 

MO U ioois ,0UTINE CCMPWS TH * TRANSMISSION loads thru walls 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

e 


£ 

c 

c 

c 

c 


r*i 


SI 

TH 

T 5 I 

QTRaUN 

gtrans 

UROQF 

UWALL 

V 

phi 

HQ 


?n. L i*o f?I CWSlTV fBTU/Hn-PT** 2 ) 

S 0 LAR-AJR TPMPPBATURE 

IO r ALISPO form of Tf 

transmission I.OAP ppn unit arfa 

total transmission upao 

OVIspJll heat TRansffR rorcc* ^ 00 K(PTU/HR«FT B |)p 5 p) 
FAfTCJS jn TMF AMPLTTllnp°rte F n<pS ,r W 4 l*l*(BTU/HR«,FY.,DEGF} 

oiffhsivkv CF JIll U0E 0F 0WiNS 0U E TO thermal 
OIFF u$Ivm F OF f< HALL * RCU * m 0F ®TBANS due to THERMAL, 
M * U '****"' C0EFF * ° F 0UTS I^ WtUll T U/HI.,pT** 2 . 0feF , 

rr tou.o^r. _ ' 


?EU° U Iir ,Hifl ®^ Tfl *tT0A»5ri0r/UNSi Aoj,ZONE) 

nTMFSI» n A0J(9,,),20,j£ ' 

OTMENSIDN OTiAiSeI2ij>?TFcSi?' a Toirr» a f SaJ,aHJlDBC9,a3 

WSNSIOh UR 00 F(fi] Via j fpAiJS^ tHO(Ett) 

COMMON/w ALL/ UROOF Shall .PH^e 1 ^? *VBFf 8 ) ,VWL (83 

COmmqn/ area/ awam 

C0M«Ott/D BC/ P,DFC,{;^J A g US(9 ' a >*TNEXT(S,S) lS HAOE 
OATA /Pl/3,lqj59/ 

ANO THF 9 ORIENTATIONS^OF^TH^WALL 6 F ° R ™ E 2fl H0Ufts OF THE DAY 

""" P '“” E ’ , ou,s »>' ««• '■>» calculations 

f ; s xb&'&’xiiiigi.'rg'.M 

!B ’’ ’ «!» SB? K S iBiVat* 

DO S Inj.au 
QTRAN3 ( 1 ) nfl 
00 5 J*J t9 
OTRAUW(I»J)*0 

5 CONTINUE 


1*1 


1*1 


1*1 


f*l 


f*l 




1*1 


r*i 


w 


DO q o Jkj.9 

TEM*o. 

M *0. . 

NsO, 

TNOEX*AOJCJ*ZONE)+1 

00 TO C4 o « 30 1 20 1 10 J*INO?a 
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77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 
95 

94 

95 

96 

97 

98 

99 
100 
KOI 
102 

103 

104 
165 
106 
107 

105 
109 

no 

m 

M2 

1I3 


c IF there IS no HALL THFRE JUMP ONE STEP 

C«*MMM*M«*MM«rM.*******M*0*Mr*#*M*Mtt#*.*M^MM^*t*^** 

L «*i r* tup hcvt a i nn»s 7P Tm£ WALL IS AN EXTERIOR HALL 


C 

c 

c 


WE DD the NEXT 2 LOOPS IF THE WALL IS *N EXTERIOR WALL 
!0 OR 12 !* 3 ,i2« 

TOM (DMOACHOfl) ..... 

TEtUMOAltn + ALPHAPSttltJJtSHAOEUiZQNEi/HOtl) 

TE M *TE t '+TE t T) /2<l« 

MsM+TE(I)^COS(Pt*RI/t2*)/t2» 

Nbn+7E(I)*SIN(P1*RI/12,)/12. 

12 CONTINUE 


Ua'J#ALLC70NE) 
vavwi CZ0NEI 
PhIsPhJwl(70NE) 

IFt J , EG* 9) Ufl'JROOEfrONE) 

IF ( J .EG, 9) VaVRFfZOHF) 

IFt J .FG, 9) PH I* PHI RFC ZONE! 


00 IS I*1«2M 

R I* 1 

SAVGLE*ATANCABStN/H}) 

tf{N ,LT, n, e 4NI), M ,GT, i),}3AN6LE*2.'*P!“SANGLE 
IF(M ,LT, 0* « AND* H .LT, 0,}3ANGLE b PI*3ANGLE 

0mUNnl4)*UMTEH->TRmv*S0RT*H»M*N*N)*C03(PI*RI/i2.-SANGLE 

a -PHI 3 
IS CONTINUE 


* 


* 
$ 
$ 

C999«i:<.***»»*»**r+***f«***<'*******» ,!(9 * , ******* ,, *** # **** <l * < '' > *** #,,4 ' , * : * M * < '* 

GO TO go 

C WE GET Tfl THE NEXT BO LOOP IF WALL IS AN INTERIOR ONE 

e ft 

20 DO 25 1*1*24 

IFtTOAHl) .LT, TO.) TBA! (t)a?0« 
GTRAttNU,J)aUWALL(ZOMF)*CTOAHn»TPA3 
25 CONTINUE 

' c 


GO TO «0 


ci mn u tn in m ? n tmsn u i m m n n n m n u m m m i m m i m m n 

c THIS LOOP is FO* «AIL WITH CONSTANT TEMPERATURE 

C 

30 GTRAUNn!jf*{TNEXT(JfZONE)-TRA3»UWALLanNE) 


DATE 062376 PAGE 22 


169 


ecp mut'UH 
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PAGE 


23 


I!« 

35 

n>; 

e 

116 

cum 

117 

00 

ita 

c 


c 

120 

c 

121 


122 


123 


U4 

so 

125 

60 

126 


127 


mTig 

VIC.KEQW 


IS CONTINUE 


MUUTtPly A&EA OF wall, to QTRaUN to 5ET TOTAL NEAT TRAN5HISSII0N LOAD 

00 60 
00 50 

G?PANS{I)aaTRANStn*OTRAuN(I ? J)#AwALL{JtZONEJ 

CONTINUE 

CONTINUE 

RETURN 

SUO 


o 
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1 

2 

3 

a 

5 

6 

7 

8 
9 

10 

11 

12 

13 

18 

15 

16 

17 

18 

19 

20 
21 
22 
23 
28 

25 

26 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


HEATING/COOLING load 
TERMINAL P£H|AT) 


KNUHaTHE KMU^ITH AIR' 
0HEL * HEATING LOAD 
QHHP a HEATING LOAD 

face * cooling load 
NZQNE s the NZONEtTH 


CALCULATION FOR TYPE 1 AIR-HANDLER (SINGLE DUCT PLUS 


■HANDLER IN THE BUILDING 
(ELECTRICAL! IN BTU 
(THERMAL) IN BTU 
(ELECTRICAL) IN B7U 
ZONE IN THE BUILDING 


SUBROUTINE «EQ1 (KMUM,ICNm«tCOMFT,M2DNE»BHEL.QCCiflHBOL.TBOOHJ 
DIMENSION <J3UHNUC2«?6> 

INTEGER JR (8) 

COHMON/CnT t IPi(53UMNU*TRAA 

COMMON/*/ DSUH, T3 AZiTMA,ZCFH»CSETPT,HSETPT* heater* REHEAT I HEBRA 
DIMENSION DSUH (2*28) »TSAZ( 8ifl8) 1THAC881 10) tZCFMCB* 11) * 

/OHEL ( 68 1 1 0) * OHRDL (88*10) t OCC(68i 10) *TR00M(6B) 

DIMENSION C3ETPT(68il0)fHSETPT(68»10liTC0MFT(8*6B) 

INTEGER HfATER(lO) » REHEAT (B)»ICNTRL(8» 10) 

HEAL MLT 

COMMON /CONST / M LT 

START COMPUTATION OP QHEL*DCC AND QHBOL 


27 

28 

29 

30 

31 

32 
13 
58 

35 

36 

37 

38 

39 
80 
at 
62 
63 
68 

65 

66 

67 

68 
69 

.50 

51 

52 

53 
56 

55 

56 


DO 10 131968 
S£TL0 S C5ETPT { I * KNUM) 

J«1 

KeO 

IF (I.gT.26) Jag 
IF CS.GT.26) K«26 
NEHHRsI»k 

IF(NE«HR ,EQ. l)WRITE(6»20) 

TSA7H*TSA7 (NZONE 9 1) 

TFdP(NZONE) .NE = 1) GO TO 2008 

TSAZNsCSETPTdtKNUM) ... 

IF(ICNTRL(NZ0NE»KNUH) .NE, 1) TSAZN«?TRAA-CQSUMNU(J»I-K)/ 

A (HLTYZcEMfNZONEiKNUV))) 

2000 JF(TMA(I,KNUH) ,LT. CSETPTCI»J(.’iUK)) GO TO 200 
GO TO 30U 

200 SETLOsTHA(I»KNUM) 

W,RITE(6,?S0)J*NEWHR*NZONE . _ , ■ „ 

250 FORMAT ( ljf * t TMA LESS THAN LOWER SET POINT* COOLING COIL DFF.U5X* 
* I DAY-TYPE 1 I *I2*3X* I HOUR 1 1 1 12*3X* <ZONE» 1 1 12 1 3X » I (KEG l) t ) 

300 IFtTSAZN ,LT. SETLO) GO TO 600 
GO TO 100 
600 TSA7N3SFTL0 
20 FORMAT ( • 0 I ) 

wRlTE(6*u50) J*NEWHR iNZONE 

850 FORMATdx* 'TSAZ LESS THAN LOWER SET POINT* REHEAT COIL 0FE‘*3X* 
*» DAY-TYPe I * *I2«3X* I HOUR 1 1 ♦ 12 • 3X » « ZONE 1 >*I2»3X* I (KE01) I) 

100 OHgL(I»KNUM)aMLT*ZCFH{NZONEtKNUM)*(TSAZN-SETLO) 

C 

TROOM(I)sTSAZN+aSllM( J* I-X)/(MLT9ZCFM(NZONE*KNUH) ) 
I?<rCNTRLCNZONE*KNUM) .EQ, 2) 


I - 1 



J ■> . JL t* ill, , . .a . 


.A 
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+ ?RODMtnsTaAZM+n3UMNUtJ?I-K)/(MLT J * t ZCrHCN^NEtKNUM)5 
IF(ICNTRLCWZONEqKNUH) ,EG. 1) TR0OM<I)*m^ 
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59 

69 

61 

62 

63 

64 

65 

66 
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66 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 


C 

c 

c 

c 


c 

c 

c 

c 


THESE 2 IF STATEMENTS ARE PUT IN FOR THE CONVERSION BETWEEN A 
AND A 48 ELEMENT VECTOR 


20X2 MATRIX 


IF t REHEAT CN70NF). Nr, o,AND a RFHE AT (NZONE) «N£ * O GO TO 98 
IF (REHEAT ( NZONE) *FG, 1 ) GHFOL (I I KNUM) *CHFL Cl *KNUM} 

IF CREHEAT(NZONEKEO*n OHEL (IiKNUM)*0 

THESE TF STATEMENTS SERVE TO SORT THE HEATING LOAD INTO THE CORRECT 
CATAGORY ACCORDING TO THE HEATER TYPE (ELECTRICAL OR GAS-FIRED) 

OCC (I f KNUM)3MLT*ZCFMCNZ0NE*KNUM)*CYMA(ItKNUM)-SETL0) 

GO TO 10 

98 WRITE(6*99)NZQNE 

99 FOv'MATCt ERROR IN HEATER-TYPE t CHECK INPUT ■ f 3Xf I ZONE! I 1 12 ? 3X* UKEG1 
*)0 

RETURN 
10 CONTINUE 
RETURN 
END 
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2 

3 

a 

5 

6 
7 
6 
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C 

c 

c 

c 

c 

c 

c 

c 

c 


HEATIN5/C00UMG LOAD CALCULATION for TYfE 2 AIR«HANOLER (DU/vL"DUCT» MULTI ZONE 
WITH MIXING BOXES *0» SINGLE-DUCT WITH MIXING IN THE AIR-HANDL£ft> 


KNUM * THE KNUMITH AIR-HANDLER IN THE BUILDING 
0HEL * HEATING LOAD (ELECTRICAL) IN BTU 

QHMP » HEATING LOAD (THERMAL) IN BTU 

QCC w COOLING LOAD ( ELECTRICAL) IN BTU 

NZONE » THE NZONE ITH 2 one in the building 


10 

it 

12 

13 

15 

16 

17 

18 
19 


22 

23 

25 

.26 

27 

23 

29 

30 

31 

32 

33 
30 

35 

36 

37 
33 
39 

no 

oi 

Q2 

03 

00 

05 

06 
07 
03 
09 
*50 

51 

52 

53 
50 

55 

56 


C 

C 

c 

c 

SUBROUTINE KEG2 (KNUM, ICNTRL ? TCOMFT f NZONE * OHEL » QCC tQH0OL« TROOMJ 
COMHON/K/ GSUH ♦ TS AZ t TMA» ZCFM »C3ETPTfHSETPT? HEATER? REHEAT *HFBR A 
DIMENSION Q5UMNU ( 2 f ?0 ) 

CDMH0N/CNT/IOf0SUMNU?TRAA 
INTEGER IP(B) 

DIMENSION QSUMCpf 20) 9 TSAZ(8tOB) iTHAtoaflO) rZCFMCfi? ti) » 

/ QHf L COB # 10) t QHROL(08 1 10)? 

/ QCCC 08*10)? T ROOM (08) ^XH(Ofi) 

DIMENSION CSETPT t OB ? 1 0) ?HSETPT(06t 10) ?TCDMFT(8?08) 

INTEGER HFATER(IO) pREHEATCS) tlCNTRLCBi 10) 

RFAL MLT 

CO MM ON/CONS T/HLY 

c 

C START COMPUTATION OF QHEL ? QCC AND QH80L 
C 

DO 10 Is 1 ? 03 

J=1 

K*0 

IF £ I *GT *24) J*2 • 

IF (T.GT,20) Ks?0 
NEwHR*I-k 

IFCNEWHq «ED# 1)WRTTE(6»5) 

5 FORMAT (I A t ) 

C 

C THESE 2 IF STATEMENT ARE PUT IN FDR THE CONVERSION BETWEEN A 20X2 MATRIX 
C AND A 08-DTMENSI0NAL VECTOR 
C 

SETLD*CSETPT(ItKNUH) 

SETHI*H$ETPT(I»KNUH) 

TSAZN*TSAZ(NZONEtI) 

IFUP(NZONF) *NF, 1) GO TO 2000 

TSAZN*CSETPT(IiKNUM) 

IF (ICNTRL (NZONE iKNUM) *NE* 1) TS AZN*TR A A* ( QSUMNU ( J t I«K ) / 

A ^LT*ZCFM(N70NFf KNUM) ) ) 

2000 IF(TMA(I*KNUMJ «GE. CSETPT(IiKNUM) )G0 TO 30 
SETin«THA(If KNUM) 

WRITE(6t 20) 5FTLQ?J? HEW HR? NZONE 

2r format tlx? 1 cooling coil not working* lower setpointktma** ? 

TF6.2f 5X? I DAY-TYPE! * ? I?? 3X» l HOUR! » ?I2?3X? I ZONE I I ? I2?3X? 1 (KEQ2) *) 

30 IF(Tma(I,KNUM) ,IE« ‘HSETPT ( 1 1 KNUM) ) GO TO 50 
^ SETHIsTMA(I t KNUM) 

WRITE(6i« 0) SETHI i JtNewHRf NZONE 

40 ' FORMATMx? [HEATING COJL NOT WORKING* UPPER SET POINT*TMAw » »P6 .2 
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27 


50 


C 

C 

C 

c 


*b 3«9 UHV-TYPEt »I2*3Xt.tH0URl f * I2t 3x* 1 ZONE! 1 1 22*3X9 f CKEQ2) I ) 
^H(I)a{TaAZN»SETL0)/CSETHI«5ETL0) 

IPCXH(I) # GT. U3GO TO 900 
TFCXH(I) ,LT. 0,)G0 TO 990 

IF CHEATfrR(KNUM) ,NE,0 ? ANn*HEATERCKNUM) B NEfi I)GO TO 98 
103 QCC CI#KNUM) c mlt*zcf^CWZONE * KfaUM) * (1 - XHCI))*(TMA(I«KNUM3 q» 
/SE7UO) 

OHEL (I.KNUH)s MLT*ZCFW(NZONE*XNUHmH(I)*{SETHI-TMAd 

TROOH(I3BTSAZNtQSUMCJfI-K)/{Ml,T*ZCFM(N?ONE*KNUH)) 

IFtlc^TRl (nZQnEtKNUM) .EO« 1) TROOM ( I ) =f<U a 
IF(ICNTRLCNZONE,KNUM) ,EQ. 3) 7ROOMCn«TS*ZN*GSUMNU(J.I«K)/ 
A CMLT+ZCFHf NZONEtKMJH ) ) 

1 IF (HEATeRCKNUM).EQ,!) OH0OLcr.KNUH) = BHF.LCI jKNIJHI 
IF ChE*TfR(«NUM) ,EO, 1 ) OHELCI fKNUHjso 


TMESF IF 
CATAGORY 


statements SFRVE 
ACCORDING TO THE 


TO SORT THE HEATING LOAD INTO THE CORRECT 
HEATER TYPE (ELECTRICAL OR GAS-FIRED] , 


10 

500 

900 


990 


GO TO 10 

98 WRITE (6*993 HEATER(KNUM) * NZONE 

99 FORMAT! ) ERROR IN HEATER TVPE*CHECK 
*N£i » «I2 f 3X» l (KEQ2) I) 

GO TO 500 
CONTINUE ' 

RETURN 
TSAZNsSETHI 
XH(I]«W 

GO TO 105 
T9AZNSSETL0 
SHdiaO. 

GO TO 105 
END 


INPUTU3X* lHEATER*«tI2*3X. iZO 
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.KE03-VA 

C KEQ3 SUBROUTINE COHPUTES THE COMPRESSOR COOLING LOAB*0OILER HEATING 
C LOAD AND ELECTRIC HEATER LOAD FOR A TYPE 3 AIR HANDLER. HUTS SUBROUTINE 

C WILL PERFORM THE COMPUTATION FOR 2« HOURS OF DAYTYFE ONE AND DAYTYPE 

C TWO, THE RESULT IS RETURNED TO THE MAIN PROGRAM IN THREE ARRAYSl 

C QCC (HOUR »XNUM) *QH60L( HOUR* XNUM) *QHEL( HOUR* KNUM) , 

C QHELsELEcTRIC HEATER LOAOCHTU) 

C QCC=COMP8ESSOR COOLING LOAOCBTU) 

C OHBOLsBOTLER HEATING LOAO(BTU) 

C BF*BYPA5S FACTOR 

C 

SUBROUTINE KEQ3(OHBOLfflCC,QHEL*KNUM*IcNTRL*TCOMFT»ZONE|TROOH) 

DIMENSION OSUMNUC2 j29J 
INTEGER IP (81 

COMMON/CnT/ IPiQSUHNUoTRAA 

COMMON/K/QSUH, TS AZ,TMA,ZCFH,CSETPT*HSETPT* HEATER* REHEAT* HFBRA 
INTEGER ZONE* DYTP* HEATER (1 01 *REHEATCB)*FLAG*ICNTRL(B* 10) 

. DIMENSION QHEL(9B*10) *OCC(9BiiO)*GHBOL(9a*lO)»TCOHFT(8*fl8) 

DIMENSION ZCFM(fl»U5*T34Zt8*9B)*TMA(9B»10)*OSUH(2«29)t 
• + TROOH(flB) 

DIMENSION CSETPTia8*10)*HSETPT(98.l0) 

REAL MLT 

COHMON/CONST/MLT 

e 

C INITIALIZE VALUES TO ZERO 

OYTP«0 S 

DO 100 J«1 *9B • cn 

OHEL(J*KHUM)*0.0 ■ 

QCC ( J * KN(JM) • 0,0 
GMBOL C J *KNUM)* 0,0 
100 CONTINUE 
C WRITE( 6 ,a 001 

150 DYTPsOYTP +1 

DO 650 J*l*29 

IFCJ .EG. 1 )WRITE(6»5) 

5 FORMAT (to 1 ) 

Isj 

FLAGaO 

IF (DYTP.EQ ,2) I« J+29 
C 

C TEST TO DETERMINE TF COOLING OR HEATING IS NEEDED, 

C 

TSAZNsTSAZ(ZONE*I) 

IF ( IP(ZONE) ,NE. 11 GO TO 2000 • 

TS AZNaCSETPT ( I *KNUM) 

IFCICNTRL(Z0NE*KNUM) .NE. 15 T3AZN«TRAA-C08UHNU(DYTP*J)/ 

A (MLT*ZCFM(Z 0 NE,KNUM ))1 
2000 IF (TSAZN.LT. TMA( 1 *KNUH )5 go TO 200 

c 

e COMPUTE electric heater load 

C 

OHELa*KNUM3*ZCFH<ZONE*KNUM)9MLT*(TSAZN-TMA(I*KNUM)) 

RF *1 

TF (HEATEP(KNUM) .EO.OIGO TO 650 
C 
C 
C 


COMPUTE BOILER LOAD 
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60 
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61 
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62 
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61 

c 

64 

65 

66 

67 

68 

69 

70 

200 

71 

72 

73 

1000 

74 

1050 

75 

* 

76 

77 

1100 

78 

79 

80 
81 

250 

82 

83 

600 

‘84 

85 

86 
87 

650 


aHBOLCIlKNUMJsQHELt^KNUH) 

GHELU *KNUM)* 0.0 
GO TO 250 

DETERMINE IF COOLING SETPOINT IS SUITABLE AND COMPUTE COMPRESSOR 
COOLING LOAD 


IFCTMACI.KNUM) ,LE, CSETPT(XtKNUMJ) GO TO 1000 
RF»( 75 AZN«C 5 ETPT(I f KNUM) ) / 1 TMA( I * KNUM) “CSETPT ( I f KNUM ) ) 
jFCTSAZN.LT.CSETPni.KNUMnFLAG*! 

TF(FLAG,EQ »1 >RF*<; .0 

IFtFLAG .EO. 1 ) TSAZN.CSETPTCltXNUM) 

IF (FLAG. F 0 .nnRlTEt 6* 6001 DVTPfJi ZONE 

GO TO t 100 

EFal 

TSAZNaUUCItKNUH) 

FORMAT! lXt^TMA^LESS* THAN LOWER SET POINT? COOLING COIL 0 FFM 3 X? 
♦IDAY-TYPFl 1 1 1?*3X? 'HOUR* > « 12 • 3X ? 'ZONE I > ?T2*3X? 1 O 

QCCtI«KKUH7»ZCFMCZ0NE»KNUKJ*HtT*Cl,-BF)*(THA(IfKNUM)- 

+ CSETPTl IfKNIIMj) 

TRQOM(T)*TSAZN + QSUHfOYTP 3 j)/CHLT*ZCFM!Z 0 NE»KNUM) J 
TFflCNTRl (ZDNEiKNUM) ,FQ, 1) 7ROOM ( I ) sTR A A 

IFCIC^'THi. (ZONEiKNUM) t pD* 2) YRCIOMC IJaTSAZNf QSUMNU CDYTP • J5 / 

4 F0RHATC1X^'SETP0INTS H ARE unsuitable for room design CONDITIONS t,3X 
* , 10AY-TYPE1 ' • 1 2 » 3X? • HOUR t 1 1 12? 3X • 'ZONE1 1 »12»3X» I (KEQ3) ') 

CONTINUE 

IF (DYTP.EG.n GO TO 150 

RETURN 

ENO 
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1 3S92*YtC t 1 3 

1 

2 
3 
a 

5 

6 
7 
6 
9 

10 
11 
1 2 
13 
ta 
J5 
16 
IT 
1 » 

19 

20 
21 
22 

23 

24 

25 

26 
27 
26 

29 

30 

31 

32 

33 
3 ^ 

35 

36 

37 

38 

39 

40 
01 
42 
03 

05 

06 
07 

46 ..." 
09 
50 
’ 51 

52 

53 

54 

55 

56 


£00 

250 


F" KEQ4 SUBROUTINE COMPUTES THE COMPRESSOR COOLING LOAOfAND HEATING 
C LOAD FOR HEAT PUMP OP DOUBLE COIL H/C SYSTEM WITH ftY-PASS. CONTROL. 

C THIS SUBROUTINE WILL PERFORM THE COMPUTATION FOR 24 M0U«8 OF DAYTYPE ONE 

C ANO DAYTYPE T^O, THE RESULT IS RETURNED TO THE MAIN PROGRAM IN THE 

e arraysi qccchour*khuh)*ohhp(hqijr»kmuw) 

C OcCsCOHPRESSnR COOLING LOADCBYl!) 

C QHHPsHE AT PUMP HEATING LOADCBTU) 

S'.IRROUTINF KEOO tftCCrflHELfOHHPi OHBOL »HlNE»KHlJM»ICNTRLf TCOHFT tTRDOH) 

DIMENSION 05lJMNU(2*2fl) 

INTEGER T P C S 5 

common/cnt/ IP.QSOMNU.TRAA _ 

CO H MON/K/l)SUMi IS aZi THA i 2 CFH»cSETPT*HSETPT»HEATERtREHEAT»HFBRA 
DIMENSION TSAZ(«*aB)f2CFM(fl»il)fTMAtaB*10) .OS'JM (2 , 2«l ) 

DIMENSION CSFTPTf#B t tO)»MSETPT(««tl03 
DIMENSION OCC («6t 10) »OHHP(«a» 1 0) *TCOMFT(B*UB) 

DJMFNSION TROOM(Ufi) .QHFLe«B» 1 0) »0Hfl0L(afl»10) 

INTEGER ZONE « DYTP i HE AtEPtlOJf REHEAT CB) » STAR * EYE f lCNTRLCSi 10) 

REAL MLT 

COMMON/ CONST /ML T 

C „ 

C INITIALIZE VALUES TO ZERO 

C 

OYTPaO 
OYTPaOYTPT 1 
00 700 J* 1 1 20 
I F ( J .EO. 1)WRITECB«5) 

5 FORMAT C ' 0 1 3 

I*J 

STARaO 

EYEaO 

IF (0YTP.EG.-2)X«J+2« 

C TEST TO DETERMINE IF COOLING OR HEATING IS NEEDED 

C • 

TSAZN*TSAZ(ZONE»n 

IF ( I P (ZONE) . NE a 1) GO TO 2000 

TSAZN*CSF7PT(I*KNUM) , ... 

IFacNTRLt?OMf»KNUM) ,NE« 1) TSAZN»TRAA“(03UHNUCDYTP» J)/ 

A (MLT*7f p *’.tZ0NE*KNLIM)) 3 
2000 IF (TSAZN.GT.TMACIfKNUHJDGO TO 300 
C 

C SYSTEM IS IN COOLING MODE 

e 

IF(TMA( I,KNUM) oLE. CSETPT C I f KNUM) ) GO TO 260 
8Fa{TSAZN-CSETPTtI*KNUH))/tTMA(I*KNUH)-C3ETPT(I*KNUH)3 

TFIBF.GT.1 0 )EYE»1 
IF (EYE .EG. 1 ) RF= 1 

IFCBF.LT. 0.)STAflal 

IF (STAR a E0. l)RFaO. 

IF(STAR.eO, 1)TSA7N*CSETPT ( ItKNUM) 

IF CSTAR.EGol )»RITEC6*650)0YTP*J«Z0NE 

r,n to 2fto 

260 RFa 1 

TSAZNaTMACItKNlIM) 

MR I TE (6. 270) DYTP*J»ZONE . 

270 FORMAT ( 1 x r ' TMA LESS THAN LOWER SET POINT « COOLING COIL 0FF'i3X* 


OS 
<0 £ 

to- 
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57 

58 

59 

60 
61 
62 
63 

6a 

65 

66 

67 

68 

69 

70 

71 

72 

73 
7a 

75 

76 

77 

78 

79 

80 
81 
82 
83 
a« 
as 
66 
87 
06 
GO 

90 

91 

92 

93 
90 

95 

96 

97 
96 
99 


200 


♦ IDAY-TYPFI I tI2r3Xff 1 HOUR I » tI2t3X» 1 Z 0 N E 1 * *I2t3Xi * (KEOai 

0CCCXfK*lUH»«CFHCZOHE.KNUH)*ti.-Bn*HLT*tm(I.KNUM) 

+ -CSETPTCIfKNUH)) 

go TO aoo 


system is in heating MODE 


300 


TO 350 

•HSETPT ( I f KNtlMJ ) 


350 


370 


aoo 


650 

700 


IF (TMA ( t < KNUM) *GE. HSETPT(ItKNUM)J GO 

8Fa(TSAZN-HSETPT(lTKNUM))/(THA(HKNUH)- 

IF CBF ,LT,0.1 STAR*! 

IF (STAR mEQo IIBFsO. j 

IF ( STAR .E0» 1) wRITEC6» 650) DYTPtvfiZONE 

IFCSTAR.EQ.nTSAZN^HSETPmfKNUM) 

GO TO 380 
BF* 1 

■TSAZN=THlMiKNUH) 

SS5K4Ulx!?THrGRElTE« £ THAN UPPER 8E7 POINT, HEATING COlU 18 OFF ' . 

♦ IX i I DA Y“TYPE 1 1 * 1 2 1 3X 1 1 HOUR 1 1 f 1 2 f 3X » ^ ZQNEt ^ f I?* ^ * (KEQ ) ) 

3B0 HL0AD*ZCF H (ZC1NE *KNUH) ♦MLT* ( 1 .»BP5 * (HSETPTCIi KNUH) 

IF t HEATER (KNUM)-l J 381 1 382 f 335 
DHELC1»KNUH)3HL0AD 
0Hn0U(I*KNUH)*0 

QHHP ( I j KMUH) sQ 

GO TO U00 

OHEL(I«KNUM)sO 

(3HBOL (ItKNUR)»HLOAD 
AMHP"(1»KNUH)'*0 
GO TO R00 
QHEL ( I f KNlJMJwO 
0N0OLU»KNUM)*O 

TROOHt I } aTS A7N+QSUM(DYTP t J) / {MLT*ZCFMCZONE» KNUM) ) 
IFUCNTRUZONeIkNUH) llo! 2) TROOM(I)*TSAZN+QSUHNUCDYTPf J)/ 

%ORNATX I X f ^SFT^POINTS^ ARE UNSUITABLE FOR ROOM DESIGN CONDITIONS I « 

♦ 3Xt IpAY-TYP'EI ' *I2«3X» «NOUR« < »J2f3x» 'ZONE! 1 » I2»3X* ' CKEG«) ) 
CONTINUE 

IF (DYTP.EO.il GO TO 200 
RETURN 
END 


331 


302 


383 
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% 

2 

3 

8 

5 

6 
7 

a 

<9 

10 

n 

12 

13 

18 

15 

16 

17 

18 
19 
?0 
21 
22 
23 
28 
25 
.26 

27 

3B 

29 

30 

31 

32 

33 
3« 

35 

36 

37 

38 

39 
80 
81 
82 
83 
88 

85 

86 
'87 
88 
89 
50 
5t 

52 

53 
58 

55 

56 


.KEG5-VA 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 


HEATINg/COOLING load CALCULATION FOR TYPE 5 AIR^HANpLER 

KNUM a THE KNUMtTH AIP«HANDLER IN THE BUILDING 
NZOME * TWF N?ONE»TH ZONE IN THE BUILDING 
QHEL * ELECTRICAL HEATING LOAD IN 0TU 
0HROL ■ BQHEP HEATING LOAD IN 5TU 
OCC * SLFCTRICAL COOLING LOAD IN BTU 

WF a ERArTTON OF THE TOTAL CFM OF THE ZONE WHICH COMES PROM TERMINAL 
REHFAT 

7H0T * Te m PEPATHRE OF THE AIR LEAVING THE TERMINAL HEATER 
SUBROUTINE KEGSCKNIJH? TCNTRLfNZONEf OHELtQCCfOHHOL«TROOH) 

DIMENSION 0SUMNUt2»28) 

INTEGEft JPCBJt fCNTRL(RpiO) 

COMMON /CNT/ JP t OSUMNUfTR AA 

OIHENSION OSUH(e,281 tTSAZC8«88) tTMAf88t 10)iZCFM(Sf U5f 

* DHELCafl? 10)fOHROLC8Bf 10) ? GCC C 88? 1-0) ?TROOM(i|B) ? 

* HFRW A (A) 

DIMENSION CSETPT(88r10)fHSETPTC8fl#tO) 

COHMON/K/ QSUM? TS AZ t TMA 1 7CFMf CSETPT pHSETPT s HEATER i REHEAT f HFBRA 
INTEGER HE ATE&( 1 01 * REHEAT (ft) 

REAL MLT 

caHMON/CONST/MLT 


C 

c START COMPUTATION 
C 

tFCHFRR A f NZONF) .EQ, 0)G0 TO 110 

IF(REHEATCNZONE) .NE.O.AND.REHEATCNZONEJ.NE.n 50 TO 98 

DO 10 I»!?88 

J»i 

RaO 

IFei.5T.28) J«2 . 

IF C I.GT «?8) K«28 
nehhr*i«k 

IFCnewhr .EQ, !)WRItE-t6il). 

1 FOR*AJt»0t) 

T3AZN*ISAZCNZ0NEtn 

TF(IP (NZDNF) «NE. 1) SO TO 2000 

TSAZNsCSFTPTCItKNUH) 

IFCICNTRlCNZONEpKNUM) .NE. 1) TSAZN*TRAA-(Q3UMNUCJ* I“K)/ 

A CHLT*7rFMfN70NEfKNUM)n 
2000 SETLO*HINCTHACl«KNtJM)fCSFTPT(IfKNUM)) 

THOT* ( TSAZN-9P TLn* ( 1 ,-HFRR A (NZONE) ) 3 /HFBRA C NZONE) 
IFCTHOT c LT.SETLO)GO TO 95 

5 nHEL<IiKNUM)aMLT*ZCFMtN70NEfKNUMr*HFBRACNZ0NFH(TH0T-5ETL0J 

QCCUf KNUM) *MLt*Z CFM C NZONE pKNUM) TMA ( T i KNUM) -SET LO 5 
TROOM(I)s(HFRPA{NZONE)ATHnT)H W*HFBPACN7ONE)!*$ETL0+Q3UMCJfI«K)/ 

♦ (MLT*ZCFM CN20NE f KMIJM.J ) 

IF ( IP (NZONp ) , EQ, U 

»TROOM(naCHFRHA(N2nNE)4fTHOT) + ei. -HFBRA CNZDNE))*SETLO^Q3UMNU(J9l-K) 
9 / C M LT*ZCFM(NZC)NF®KNUM) ) 


c 

C IF THE HEATFR IS' THE ••GAS-FIRED TYPEt STORE THE HEATING LOAD IN QH80L 
C 

XF CREME AT CNZOWF).EQ.I) OHBOLC I flKNUM5 «DHEL( I p KNUM) 
tFfREHEATtNZOND’.EO.l) QHEL C I » KNUMJ «0 , 


-•4 

vo 
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5? 


60 

96 

61 


62 


63 


64 

9S 

65 

100 

66 


67 


66 

110 

69 

120 

70 


71 


72 


*?RTfl3 

VIC,K* 


■COIL IS 0FF'»3X»1DAY-TYPElliI2*3X»IH0URt»?I2f3X» 


10 CONTINUE 
RETURN j 

95 WRITE (6* 961|JtNEWH^f NZONE 

FORMiTClX* PREHEAT 

♦ 'ZONE! ' *T2*,3X» I (KEjQ5) 1) 

THOTsSETlC) 

GO TO 5 

WRITEC6i 10>0) JtNFWHRtNZONEfKNUM 

F0R«AT(1X» 'ERROR IN HEATER TYPE, CHECK INPUT, ' i 3X» ' DAY-TYPEl ' » 
*I2*3Xf ' HOUR I ',I2»3X* '20NEJ '»I2»3X, 'KNUHj ',I2»3X» ' CKE05) ') 
RETURN 

WRITECP* |2p)KNUHtNZ0NE 

FORHATtlXi 'ERROR IN HFRRA FOR THIS AIR-HANOIER ' , 3X » ' KNUH| I , 
*I2*3X* I ZONE t ' , 12 , 3X » • CHECK INPUT ' i3Xt ' C KEQ53 ') 

RETURN 

END 


DATE 062378 PACE 33 


e? 

o 


ECP PPOGPaH 


date 06237A 


13592 *V*C 

1 

3 

a 

5 

6 

7 

8 

9 

10 

It 

12 

13 

m 

15 

16 
17 
IB 
49 
?0 
*1 
22 

23 

24 
?5 
26 

27 

28 
29 

10 
74 
32 ; 

33 

3 « 

35 

36 

37 

38 

39 

4 0 

41 

42 

43 

44 

45 * 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


ri) C KER HEATtMG/C00LING LOAD CALCULATION FOR TYPE 6 AIR-HANDLER 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 


c 

c 

c 

c 

c 

c 


XNUM * THE KNUHfTH AIR-HANDLER IN THE BUILDING 

NZONE * THE NZONE«TH 70NF IN THE BUILDING 
QHEL * ELECTRICAL HEATING LOAD IN BTU 
QHROL » BOILER HEATING LOAD IN 8 TU 

Hp C * FRACTl^ OF THE ZONE THAT COME? FROM TERMINAL 

THOT * TEMPERATURE OF THE AIR LEAVING THE TERMINAL HEATER IN DEG F 

CPF * COOLING COIL pass factor 

SUBROUTINE KE06 (XNUMt ICNTRLf NZONEt OHEL t OCC » OHBOL f TROOM) 

DIMENSION QSUMMU C2f 24) 

INTEGER IP(S7 » ICNTRUS» 10) 

DIMENSIONING (&?4B)tTMA(4Sf 10) tZCFMCBflV) tTRODMC40) t 

/ QHEL ( uflt 1 0) 9 OH 8 OL (40« 105 * QCC (40# 10) 

* tMFBRA(B) 

DIMENSION CSET p T(489l05 tHSETPTC4Sf 10) 

COMMON^/ 05U*lTSAZfVMA*ZCFH!c3ETPTf HSETPT*HEATER»REHEATrHF0RA 
REAL HLT 

comkon/const/mlt 

START COMPUTATION 

JF(PEHEAT(>!ZONF).HE.O,AND.REHEATCMZONE).ME.n CO TO 97 

HEATER HAS TO BE EITHER 1 (GAS»FIRED BOILER TYPE) OR 0 {ELECTRIC HEATER) 

IF(HFBRACNZONE) .EO. 0)C0 TO 100 
DO 10 la) *08 
Ja 1 

K*0 

IF(I»GT.20) J«2 * 

IF{I.GT.2«) K«2fl 
HEWHRsI»k 

IF<H£WHR »EO* l}WRITE{8f3) 

FORMAT (lOO 

QHBOLvI *KNUH) bO, • 

0HEL(IiKNUM)»0. 

TSAZH«T5AZ<NZOHEvI) 

IF{IP(NZONE) .HE, 1) GO TO 2000 
TSAZN3CS£TPT(I*KNUM) 

IFUCNTRl CNZONEiKNUM) .NE. 1) TSAZN*TR AA-CQ3UMMUC J t I"K) / 

A CMLT»2CFHtHZOME»KNUM))) 

2000 SETLO*MlN(TMA(T»KNUM) »C 8 ETPT {I»KNUH> ) 

THOTa ( TS a 7K"SETL0T ( t ,»HFRRA (NZOHE) ) ) /HFSRA(NZONE) 

CPFa(TMA{ I*KNUH)»THOT) /(TMA(I»KNUM)«SF.TLO) 

IFffhOT.iT.SFTLO)- GO TO 95 
IF(THOI,GT,THA(I.KKlUM)) GO TO 105 
IF(TMAtliKNUH) ,EQ. SETLO) CPF«0, , 

GO TO 6 


g C 


■3003 
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59 

60 
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62 
63 
6 4 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 
AO 
81 
82 
8 3 
*84 


105 CPF*0 , 

QHEUI tKNUH)aKLT*ZCFM(NZONEiKNUM)*(THOT-TMACIiKNUM)*HFBRA (NZ0NE3) 

GO TO 6 
95 CPF«1* 

THOT aSFTLO 

6 QCC(ItKNuM)sMLT*ZCFMCNZONErXNUM)*(U-HFBRACNZONE)*Cl.-CPF)3 

/ mMAUtKNUM)-$ETLO) 

C 

C IF THE HEATER n THE GAS-FIRED TYPEt STORE THE HEATING LOAD IN THE MATRIX 
C IGHBOU 
C 

IFfREHEAT(NZONF) D EQ# 1 ) QHBOL C I • KNUM3 *QHEL <1 * KNUM3 
lF(REHEATCNZnwE)«EQ»n OHEL (I*KNUM3«0, 

9 TROO^CD* CTHOT*HFRRA(NZONE3 ) + SETLO*tl ,-HFBRaCNZONE) HQSUMC Jt I-K3 

*/fMtT+ZCF M CHZONEiKNUM) ) 

TF(IP(NZ0NF3 *EQ, 1) TROOM C I) * C THOT*HF BRA < NZ 0NF3 3 +SETLO* 

4 (1 .-HFRRACNZ0NE3 3+QSUHNUC Ji I»K3 / tMLT*ZCFM { NZQNE * KNUM) ) 

10 CONTINUE 
flgTiWN 

97 WRITE ( 6i 90) NZONEfKNIJM 

9fl FORMAT ( i Xt l ERROR IN HEATER TYPEt PLEASE CHECK XNPUT,»t > 

♦ 3Xf I ZONE! I <I2*3Xi *KNUM1 *tl2?3Xf ■ (KEQ63 I) 

RE TURN 

100 WRITE Cb* 1 103 KNUHtNZQME 

110 FORMAT 1 1 X 9 TERROR IN HFRRA FOR THIS A IR^H ANDLER . U 3X t 1 KNUM | I » 

*I2t 3Xt IZONEI UI2t3Xt » CKEQ6D •tSXHCHECK INPUT * 3 
RETURN 
END 
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4 <J 
<15 
06 
0 7 
06 
09 

50 

51 
56 
53 
50 
55 


C 

C 


1359H*VICC1)*KEQ7 

1 

2 

3 

0 

5 

6 
7 
3 
9 

to 
it 
12 
13 
10 

15 

16 
17 
16 

19 
?0 
21 
22 
23 

20 

25 

26 

27 

28 

29 

30 

31 

32 

33 
30 

35 

36 

37 

38 

59 
00 
01 
02 
03 


DIMENSION 

t 

DIMENSION 

DIMENSION 

integer 


5 

10 

c 

c 

c 

c 


2000 


*VA 

SUBROUTINE KE07(KNUMf ICNTRL t ZOWEt QCCi QHBOL? QHELf TROOM) 

DIMENSION QSUMNU(2*2fl) 

INTEGER JP (8) , ICNTRLCB* 10} 

COHMON/cnT/ IP,G$UMNU»TRAA 

olc«S^BE L SlErS T l£ N ?Hi l RSo» H0T ° Mr *" B ‘" DLE " " HERE ,HE H0T * m MW 

OCCUR, 10) »0HB0L(48, 10) , QHEL (48* 1 0) , 
TMA(it8,10) 9 T5»ZCBf<lB)*ZCFM(B,in,TROOM(08) 

CSETPTCUBflO) ,HSeTPT(qfl,10) 

0SUH(3,2U),HF8RA(8) 

HEATER (10), REHEAT (8), ZONE, HOUR, OATYPE 
COMHON/K/OSUM^TSAZ^HA.ZCFHfCSETPTfHSETPT THEATER » REHEAT, HFBRA 
LOGICAL WRIIT 
REAL HLT 

COHHON/COHST/MLT 

CFM2«HFBR A ( ZONE) *ZCFM (ZONE* KNUM) 

CFM5bZCFh(ZON£,KNUM)-CFM2 
IF(CFM2 .ie, 0) GO TO 300 
00 200 DATYPE*1*2 
00 100 HOURai ,2a 
IF (HOUR .EQ. 1)HRITE(B»3) 

FORMAT ( ' O . 1 3 

! F (OATYPE .EG, 1 ) GO TO 5 
NFWHR*H0UR + 2<) 

GO TO 10 
NEWHRsHOUR 
WRIITP, FALSE, 


co 


CHECK THF PROPER 
OF COMFORT AIP 


HOT AND COLD DECK SETPOINTS AMD COMPUTE THE TEMP 


12 


16 

18 


TSAZN*TSAZ(«NUM,NEWKR) 

IFCIP(ZONE) ,NE,-J) GO TO 2000 
TSAZN»CSfTPT(NEWHR,KNUH) 

IF ( ICNTRL (ZONE » KNUM) ,NE, 1 ) T S AZNbTR A A»QSUMNU( OATY pE, HOUR) / 

A (MLTPZfFM ( ZONE* KNUM) ) 

SETinacSFTPTCNERHP.KNUH) 

SETriI»hSFTPT (NFWHR iKNUM) 

IF ( TM A (NpWHR , KNDM) ,6 E. CSETPT (NEWHR*KNUM) V GO TO 14 
SETLO s TMA(NEWHR,KNl(M) 

WRITEfB, 12)SETLO*DATYPE*HOUR»ZONE 

FORHaTCIX * 1 COOLING COIL NOT WORKING, LOWER SE?POINT»TMA« » i 
I!’??' * C> AY - T Y p P * '*I2*3X, (HOUR! ',I2»3X, I ZONE! isI2,3X, l(KEQ7) «) 
TFCTMA(Nf WHR , KNUM) .LE. H3ETPT(NEWHR»KNUM))G0 TO 18 1 

SETHI s THA(NFWHB, KNUM) 

WRITE(B *) 6) SETHI, OATYPE *HOUR, ZONE 

FORKATfix, 'HEATING COIL NOT WORKING, UPPER SETPOINTkTMAb I »F 6,2*3w 

** 'DAY-TYPE H * T?,3X,IHOUR5 l *I2*3X* t ZONE! I *I2*3Xi * (KE07) <) 
THnT 8 ((TSAZN*7CFM(Z0NE.KNUM))-(CFMl*SETL0))/ 

*CF M 2 . 

IFfTHOT ,GE. SETLO) R0 TO 20 
CPF= t .0 
THOTaSETLO 
mRT IT* , TRUE, 
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59 


60 


6 1 


62 

e 

63 

c 

6<J 

c 

65 

30 

66 

ao 

67 


68 


69 


70 


71 


72 


73 


74 


75 

50 

76 

ss 

77 

100 

70 

200 

79 


80 

300 

81 

310 

82 


83 


8« 


6PPT.3 

VIC.KEQ8 


IF f THOT ,LE. 3ETHDG0 TO 30 

CPFsQ.O 

THOTaSETHI 

WRIITa.TRUE. '• 

GO TO UO 

COMPUTE THE A/C EQUIPMENT LOADS AND THE PROPER ROOM TEMP 

CPFsCSEThI«THOT)/(SETHI-SETLO) 
HLOSti.O-ePF)*CFM 2 *fSETHI-TMA(NEWHR»KNUM 3 )*MLV 
OccCNEWHR,KNUM3*fCFMl + (cPF*CFME) 3*MLT»fTMAtNFWHR»KNUM)«iSPTl 01 
troom(me«hr)3Cthot»hfhsaczone 3 )+(SETLa*«i .‘•HFBfuczoNFn 1 + L05 
^SUHtOATYPEfHOURI/fMLTAZCFHeZOWE.KUMp HFBRA ( ,0N E 3) 3 * 
^IFCIPCZCI.ME) ,E0. 13 TROOP (NEWHP3* ( THOT*HFBRA f ZONE) ) + CSETLO* 

IFciElrFR(^2M? F !EJt°! ! ) J 6S 0 JS A iS PE,HDUR5/(MLT ’ ZCFM<ZONEf,<MUH55 

0MELCNEwhR»KNUM3* HLD 
GO TO 55 

OHBOL(NEwHR«KNUMln HLD 
i CONTINUE 

continue 

CONTINUE 
RETURN • 

«RTTFC6»310)CFM2 ? HFBRA£Z0NE3 f KNUM 

F0H THIS AIP-HANDLERe CHECK INPUT!, 
RETURN 2,,,FS " 3,3x * tH ^ BRA * fl *Ffl.«P3X» IKNUM) l T I2 Y 3X« »CKE07) '> 
END 
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1 


SUBROUTINE KEQ8(KNUM»ICNTRL.»Z0NE»QCC»QHB0UQH£L»TR00M»TRA) 


2 


DIMENSION 0SIJMNU(2*2«) 


3 


INTEGER 1PCB) *ICNTRL(B»10) 


a 


COMMON/CNT/ IP,OSUMNU«TRJU 


5 

C 

FIXED BYPASS OF RETURN AIR TO BE MIXED WITH COLD DUCT AND TERHINAL 


6 

C 

REHEAT 


7 


DIMENSION QCC£«ft*10) *OHBOL(UB« 10) *QHEL(«8*10) * 


8 


* TMAC«8*10) *TSAZC8*48) *ZCFM(B*1 1J 


9 


DIMENSION CSETPT(/iB*UM fHSETPT(«B»10) 


10 


DIMENSION OSllMC2i2«)*TROOM(aB) *HF8RA CB) 


n 


INTEGER HEATER ( 10) » REHEAT (8) f HOUR t ZONE* DATYPE 


12 


COMMON/K/ OSUM,TSAZfTMA.ZCFM*CSETPT*HSETPT* HEATER* REHEAT fHFBRA 


13 


real hi.t 


14 


common/const/mlt 


15 


DO 200 0ATYPE=1 *2 


16 


DO 100 H0UR&1 *20 


17 

, 

IFtHOUR .FO. l)Wf?ITE(6*S) 


18 

5 

FORMAT(lQ') 


19 


IF(DATYPf s eo. ugo TO SO 


20 


NEwhRshOUR+20 


21 


GO TO 20 


22 

10 

NEWHRSHOIJR 


23 

20 

TS4ZNbTSAZ(Z0NE*NEWHR) 


24 


IF ( IP (ZONE) .NE. 1) GO TO 2000 


25 


TSAZNsCSFTPT(NEWHR*KNUM) 

1-4 

00 

,28 


2F(ICNTRj.(Z0NE*KNUM) ,NE. I) T3AZV*TRAA»QSUHNU(DATYPE,H0UR) / 

cn 

27 


A (MLT*ZCFMCZONE*KNUM)) 


28 

2000 SeTLO=Mlv(cSFTPT(Ngv<HR*KNUM)*TMA(NEWHR,KNUM)) 


29 


• TMRa(HF8PA(Z0NF)*TRA)+( t 1 .■HFaRA(ZONEJ)fSETLO) 


30 


IF (TSAZN ,GE. TMR) CO TO <10 


31 


TSAZNaTHp 


32 


WRITF(6*30)TMP*DATYPEiHOUR*ZONE 


33 


30 FORMAKlx* 'BYPASSED RETURN AIR RATIO IS NOT SUTI ABLE FOR A/C'f 


34 


I3X* 'TMRbi ,F 6.2*3X* 'DAYTYPEs'f I2*3X» 'HOUR! ' * 12* 3X. 1 ZONE 1 * » 


35 


1 12*3X* ' (KEOB) ' ) 


36 

c 



37 

• c 

COMPUTE A/C EOUIPMENT LOADS AND THE PROPER ROOM TEMP 


38 

c 



39 


40 HLD*ZCPMCZONE*KNUM)*MLT*(TSAZN»TMR) 


40 


OCC(NEwHRflKNUM)s ZCFM ( ZONE * KNUM) *MLT* ( 1 . O-HFBRA (ZONE) ) 


41 


A »CTMAfNEWHRaKNtlM)«SFTLO) 


42 


TROOm(NEWHR)=T 5AZN+OSUM (DATYPE* HOUR) /MLT/ZCFMt ZONE, KNUM) 


43 


IF f ICNTRL (ZONE « KNU m ) .EG), 1) TROflH(N£WHP}sTR AA 


44 


IF(ICNTRl(ZQNE,KNUH) ,Ft). 2) TR00M(NEWHR)sT3AZN+GSUMNU(DATYPE, 


45 


AHO'JR)/(Mi T*ZCFM(ZONE*KNIJM)) 


46 


TFCREHEAT(ZONE) ,E0. 1)G0 TO 50 


*47 


!)HEL(NEWHR»XNIJM)s HLO 


48 


GO TO ion 


49 

50 

G«BOL(NEwHR*KNUM)* HLO 


*0 

100 

CONTINUE 


51 

200 

CONTINUE 


5? 


return 


S3 


ENO 
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i3592*VXC(! J.KEQ9-VA 


1 

2 

3 

a 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


HEATTNG/COOIING LOAD CALCULATION FOR TYPE 9 AIR-HANDLER (CONSTANT VOLUME 
PLENUM AIR AND VARIABLE VOLUME COMFORT AIR AT FIXED TEMPERATURE 


KNUM 

NZOME 

QHFL 

QHBOL 

OCC 

HFBRA 

VCFM2 
TP AM 
TROOM 


THE KNUM TH AIR HANDLER IN THE BUILDING 

the nzone th zone in the building 
ELECTRICAL HEATING load in btu 
BOILER HEATING LOAD IN BTU 
ELECTRICAL COOLING LOAD IN BTU 

a FRACTION OF THE TOTAL CFM OF THE ZONE THAT COMES FROM TERMINAL 
RFHEAT 

variable air volume of cfm of heating 
MAXIMUM plenum air temperature 
room TEMPERATURE 


17 

18 

19 

20 
21 
22 
23 

2a 

25 

26 
27 
cB 


SUBROUTINE KE09(KNUM f ICNTRL * NZONE» QHELf OCCtOHBOLf TOAt ECOM* MOiTPAM, 
9 TROOMjTRA) 

DIMENSION GSUMNUC2,2a) 

INTEGER IPC83 •ICNTRLCBftO) 

COHMON/CNT/IPtOSUMNUtTRAA 

DIMENSION 0SUMC?,2a) t TSAH(8»a?5^TMACaSf 101 fZCFMCflflll) »TROOM(a83 » 

/ QHEl (40? 10) t QHBOL (as y 10) »QCC(46i 10) t 

/ ' TO A (12*245 tHFRRACSJ t STORE (2? 24) 

DIMENSION C5ETPT 1 4B| 1 0 1 •H8ETPT(48tlO) 

INTEGER HEATERHOl f REHEAT C 0) • ECON C 1 0 5 

COHMON/K/ QSUHf T5AZ • TMA*ZCFM fCSETPTtHSETPTf HEATER? REHEAT »HFBR A 
REAL MLT 


29 

30 

31 

32 

33 

34 

35 

36 

37 
36 
39 
flO 

41 

42 

43 

44 

45 


common/const/mlt 

e 

C START COMPUTATION 
C 

C CHECK HEATER! 

C 

IFtHEATERCKNUM) iNE#0#AND«HEATER<KNUMl p NE.l> GO TO 7 
C 

C heater has TO BE EITHER 1 (GAS FIRED BOILER TYPE! OR 0 (ELECTRIC HEATER! 
C 

CF M2«HFBR At NZONE)*ZCFM( NZOME t KNUM) 

CFMlaZCFMCNZ0NE*KNUM)«CFM2 

C 

C CFMl IS THE PORTION OF ZCFM FOR C00 LINGiCFM2 IS THE PORTION FOR HEATING 
C 

DO 5 Iel f 4ti 
J* 1 


46 

47 

48 

49 

50 
• 51 

52 

53 

54 

55 

56 


K«0 

IF(I«GT,245 J*2 
IFtI.CT.24) K«24 

TF(I.£Q.1.0R.1.EQ«25) WRITE(6tlO) 

10 FORMAT C ■ 0 1 3 
C 

c THE Two IF STATEMENTS TAKE CARE OF THE CONVERSION BETWEEN 2*24 AND 1912 
C MATRICES 
C 

7SAZt*TRA-QSUM(Jf I-K) ✓ (MLT*CFM1 ) 

IF(IP(NZONE) *E0 o 15 TSAZ1*TRA-GSUMNU( Ji I-K) /(MLT*CFM1 ) 


00 

cn 
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57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
61 
62 
6 3 

84 

85 

86 

67 

68 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
uu 
102 

103 

104 

105 

106 
107 
1 06 

109 

110 
Hi 

n 2 

113 


IPCT5A71 ,LT 4 50.) TSAZ1*50. 

IFCTSAZ1.GT.TPAM) GQ TO 3 
IFCECO^CKNUM) t FO. 0 ) GO TO It 
IF C T0A<MQi T»K) «GT. TR A ) GO TO 11 

TF ( 70* ( Mft * i » k ) ,LE. TPA .AND. TOA(Mf)*Z»K) ,GF. TSAZl) GO TO 9 

TMACjf KNUM)*rSA21 
GO TO 11 

9 THAniKNtJM)sTnA{MO f I*K) 

1 1 TSAZlsMiN(mCIiKNUH) iTSAZl) 

IFCTSAZ1 ,LT. TMACTfKNUM)) GO TO 3 

OCC(lfKNUM)scFMl*MLT*C7MAClf KNUM)«T5AZn 
OHFLClf KNUM) sO 

0H8OLCI f ^NMM) sQ 

TROOM(i) t T6A7l+nsUM(j,i-K)/CCFMl*MLT5 

IEH P ^ 20MF) <FQ * 15 TROOH C n B TSAZl + QSUHNUCiJ» I«K) /CCFMHMLT) 
STORF ( Ji T«K)so,, 

GO TO 5 

3 IFtEcONtKNUM) ,pO» 0) GO TO a 

IFCTfHlMotl-K) ,GT. TRA) GO TO « 

TPCTOACHOtl-K) ,LE, TRA .AND. TOA(HO*I-K) ,GE. TPAM ) GO TO & 


£1 


c 


7 

8 


THA(f »KM)M)aTPA^ 
GO TO U 


6 TMACIiKNUMJsTOACMOtl-K) 

3ETLO=MTfc(TMA(T*KNUM) ,TPAM) 

SETHTiMaxtTKACHKNUH) »HSETPT(I,KNUM)) 

VCP"2* CFMl*tTRA-TPAHJ/(SETHI-TRA)«03UH(JiI-K)/HLT/ 

/(SETHI-TRA) 

VCFM?jtnAx(VCF’-*2,n.) 

VCFfEBUiuCCPH?, VCPW21 


RHFL(l*l<NUM) = VCFMa*MLT*C3ETHI»TMA(IiKNUM) ) 

IF fHEATEKCKNUM j .pQ.j ) OHPOL C I * KNUM ) *OHEU ( I f KNUM) 
TF(HFATFRCKNUM) .ffj.t) OHFL CI,KNUM)*0 


fJCCCT *KNljM1iMLT*CF M t*CTMA(I »KN11H)-SETL0) 
TROOMCna(VCFM?*SFTHT + CF H H , 5ETLO+OSUH(JiI-K)/HLTJ/ 

/{ CF M l + VC FHJ ) 

IF ( IP f NZphE ) ,FO. 1) TROOH (1 3 s(VCF«2*SETHI+CPM 'FSETLO+ 
A OStlMNUCJ»I-K]/H(.T)/(CFMl + VCFH?3 

TFfIP?NZnN£J .ED. J) TP00MCI)s(VCFM2*SETKI*CFHl*SETL0+ 
A 0SUHNUfj5l-K)/HLT)/'fCFHl + VCFM2) 

STORECJ* I«K)*VCFH2 
5 CONTINUE 
WRI TE C6» 1 ft) 


16 FOR«ATUHJ , 3y, »KE09I »T16» 1*7 VARIABLE VOLUME OF HEATED * < 
7< AIR *♦ l/3X»«MHe)//T19»«HHOURfT?7? 'DATATYPE 1I»T39 S 
? I DAY-Tf PE 2I/T2R, I fCFH) t f T«0» I (CFH) l/J 


HRTTEC6,?6) t I fSTORE { 1 » J ) »$T0RF(2fI)»X*1 «2fl) 

26 FO»haTCI21»1x»2F12.0) 

WRITE C6*3b) KMUH«NZONF 

36 FORMAT C//lHnfT 12, l HV . T 1 8, 1 HV/Tl 3 » IHV »T17 i lHV/Ttft.3HVVV» 
?6(/T15 i Ihh) »/Tl,8. IV H V I /T t? » I VV H VV l/T I 3* 5HVTTTV/ 
?T10 j3hvVV»T 21 . i ATR-HANDLER NO 1 1 12 i I FEEDING ZONE < » I2/T ! 5t 1HY) 
RETURN 

wRT TE C bf ft) KNUH»N70NE 

FORMATUx, IFRROR IN HEATFR TYPE. CHECK INPUT , I 3* * I KNUMl I , 12, 


00 


co 
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I3592*VIC(l) 

1 

2 

3 

4 

5 

6 
7 
a 

9 

10 

11 

12 

13 

14 

15 

16 
17 
19 

19 

20 
21 
22 

23 

24 

25 

26 
27 

?a 

29 

30 

31 

32 

33 

34 

35 

36 

37 
33 

39 

40 

m 

42 

43 
nu 

45 
ah 
47 

46 
49 

51 

52 

53 

54 

55 

56 


t C0P«V 

C SUBROUTINE COP COMPUTES THE COOLING LOADS IN KW SASED ON THE 

e LOADING FACTOR AND THE COP OF THE REFR IGERAT ION SCHEME 

C 

SUBROUTINE COPiCQCCiCOHHPf TOArCLlMjT^SIZEtHO) 

COMMON, K/GSUM, TSAZf TMA i ZCFM* CSETPT t HSETPT t HEATER 9 REHEAT CM 
DIMENSION QSUMfp,2a) fTSA7<6f 48 3 iTMA(46flO) i ZCFHC B fill r 
*CaCC(4Bi 10) iCQWHpUAf 10) P T0An2t24) I SIZE 13 f 103 
DIMENSION C5ETPTC48« 10) fHSFTPTCii?, 10) 

INTEGER HEATER (in) f REHEAT t HOUR ?CL1 M IT » CNU« 

C 

C THIS PORTION OF THE PROGRAM is FOR ALL CLDS 
C 

DO 5 CNUMsitCLTHIT 
DO 4 HOUR* 1 i 48 

IF (CQCC C HOUR t CNIJH) ,EQ. 0) GO TO 4 
JJ*0 

IF{HnUR.GT e 24) JJ*24 
NEHHR*HOUR*JJ 

C COMPUTE COOLING LOAD IN TONNAGE? POWER PER TON OF REFRIGERATION! 

C TEST HOW MANY COMPRESSORS ARE NEEDED 
C 

C^COCC(HOURrCNUH)/j 200 0, 
pPT-7,18*tTOAtMOtNE«HP)-5O/505, 

1FCC .GT. SIZE ( 1 ! CNUM)+S17E (2»CNUH) ) GO TO 900 
1F(C ,G7. SIZEUiCNUH)) GO TO 1 
COSIZl^CySIZECl fCNUM) 

FFCloAMAxl CP#4tCDSIZl) 

FFCHsO , 

IFCHDUP , EQ , 1 .OR, HOUR .ECU 25) HR ITE C6 1 1 0) 

10 FORM AT 1 1 0 I 3 ‘ 

GO TO 3 
C 

C SECOND COMPRESSOR IS ON * TEST FOR CUT OFF POINT AT 0.4 br CAPACITY 
C 

1 C2* (C^SIZEi CNUM) )/SIZE(2rCNUH) 

FFCl*U 

FFC2*AMAX1C0.4*C2) 

IFCHOUP ,£Q. 1 ,OP. HOUR .EG. 2S) WRITE (6 • 1 0 ) 

3 CQCCCH0URfCNUH)*PPT^(FFCl^SIZFCl?CNUM^FFC2«SIZE(HfCNUH)) 

4 CONTINUE 

5 CONTINUE 
C 

C THIS PORTION OF THE PROGRAM IS FOR HEAT PUMPS ONLY 

C 

DO 60 CNuMslfCLIMIT 
DO 50 HOUR* 1 j 4fl 

IFCCOHHP(HOURiCNUM) .EG, 0)G0 TO 50 
newhr*hour 

IFCHDUR ,LE, 24) GO TO 35 
NE*HP=HOUR-24 
C 

c COMPUTE PPK AND FFH 

C 

35 PPXafl35 # -TnAfM0tNEHHP))/. 49/565. 

FFH*COHHP (HOUR fCNUH)/(SIZEC3f CNUM)) 


ORIGINAL PAGE 
OF POOR QU 


ECP PROGRAM 


DATE 042378 


PAGE 


IFCFFH ,LT. 0,«)GO TO AO 

CQHHP (HOUR i CNUM)s<COHHP (HOUR *CNUK)*PPK)/3ai3.0 
GO TO 50 

AO COHHP(HOUR«CNUH3»0.0+SIZE(3tCMUH)*PPK/3«13,O 

50 CONTINUE 

60 CONTINUE 

GO TO 2222 

900 wR I IP ( b t999) NEWHP 

999 F0« M AT(l LOAD EXctFOS COMPRESSOR CAPACITY, CHECK COMPRESSOR SIZE I 
*NPU? • ♦ 3x » • HOUR* * 1 12» 3XV 1 (COP) I) 

COCC(HOUR»CMUM)«PPT*C 

TFCHOUR .EO. 1 .OR. HOUR ,EO, 25) WRITE (4* 1 0) 

GO TO « 

2222 RETURN 
END 


•PRTiS VIC.ECP2/HEATHER 
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APPENDIX B 

BLANK FORMS OF INPUT DATA TABLES 


r i +?r J! ffere ^ t 4 . se i s , 0f in P ut data tables are required. The first set. Tables 
are intended for dse by personnel who have little or no familiarity 
‘rf The second 5et “nsMtutes the translation 

oivrn i^SectlS u f S n y n th ® ma =h ln f operator and Is presented in the example, 
given in Section 3.4,2. Only the first set is given next* 




i 















TABLE B-2 


CLOUD COVER FACTOR (CCF) 



Cloud coyer factor is a number varying from 0.0 to 1.0. (Zero) means no solar energy available for 
the full month due to heavy clouds, rain etc. The value “unity" means that the total solar energy 
per unit area falling on earth's surface is identical with that predicted theoretically from ASHRAE 
model on clear days. Cloud coyer factor thus presents the ratio of actual accumulated dally solar 
energy incident on the location to that calculated using the theoretical model by ASHRAE {ASHRAE 
Fundamentals Handbook 1972). If no solar Insolation data are available, the cloud cover factor shall 
be approximated by an estimated guess of the percentage area of clear sky on the selected 
average day of the month. Twelve cloud cover factors are required corresponding to 12 months, i.e., 
one value presents each month weather on the average . All data boxes shall be filled with no blanks. 


to 

4 * 



W l n xL Speed in 2!? 1es P er 24 values are needed corresponding to 24 hours of a representative day 
of the year. The values shall indicate whether the site is windy or not. If data are not available 
for averaging uhe whole year, measurements of wind velocity on one day may be sufficient. All data 
blocks shall be filled with no blanks. 

























1 



TABLE B-4 BUILDING NAME (BLDG) 



An alphabetic and/or numeric name of the 
building under study. A maximum of six 
alphanumeric characters shall be used in 
addition to single quotation marks, 

TOTAL NUMBER OF AIR HANDLERS 
TABLE B^6 (KLIMIT) 



The maximum number of active air handlers per 
building shall not exceed 10. If this number 
exceeds 10, then the building shall be divided into 
sections each having a maximum of 10 air handlers. 


QR T MACR0Z0NES QF zlimit 


NO. OF ZONES 


The maximum number of zones per building shall not 
exceed 8. If there are more than 8 zones, grouping 
of several zones into raacrozones having only the same 
air handler type (Table B-15) shall be done. 

TA BLE B-10 TOTAL NUMBER OF CO MPRESSORS (CLIMIT) 

| No. OF COMPREsi 


The maximum number of vapor-compression refrigeration 
compressors used is 10 per building, 



TABLE B-5 COST PER kW^ (DKWHE) 



Unit cost of electric energy in U. S. dollars 
as purchased from a utility company or 
generated in house. 


TABLE b- 7 COST PER kWhe .(DKWHT) 

|/kWh e Y 


Unit cost of thermal energy used for heating 
purposes. Natural gas, liquiffed petroleum 
products or diesel oil are common fuels for 
heating* 


TABLE B-9 LATITUDE (LAT) 



Local latitude shall be converted to radians by 
multiplying the latitude in degrees times 0.0175. 



Local pressure in inches of mercury 

shall be used. The pressure is 29, 92 in. Hg. at 

sea level . 







TABLE B-12 ZONE VOLUME, (VOL) 


ZONE 

1 

2 

3 

4 

5 

6 

7 

8 

VOLUME ft 3 










The zone volume in fir snail be calculated as the sum of volumes of rooms that constitute the zone even 
if the rooms are physically located far from each other. The room boundaries used in calculating the 
volume are the "living" boundaries not including attics (unless they are occupied) or return air ceiling 
plenums etc. Non-appli cable boxes shall be left blank. 


TABLE B-13 ZONE DESIGN TEMPERATURE IN SUMMER, (TSUM) 


ZONE 

1 

mm 

3 

4 

5 

6 

n 

8 

SUMMER q F 










The zone temperature in summer (tn Deg F) can be the summer design value, the summer thermostat settinq, or the 
actual room air temperature measured and averaged over the summer season. Non-appli cable boxes shall 
be left blank. . . 


TABLE B-14 ZONE DESIGN TEMPERATURE IN WINTER, (TWIN) 


ZONE 

1 

2 

3 

4 

5 

v T - 
6 

7 

a 

WINTER, °F 










The zone temperature in winter (in Deg F) can be the winter design value, the winter thermostat setting, or the 
actual room air temperature measured and averaged over the winter season. Non-appli cable boxes shall 
be left blank. 

























3's.x'.' si&Mrjs jBLir' sw ■«. -™.™ «* «»« w» >« «■ 

s- SS.IS xas »... 

s- sSisfea srijsss rautf.ras: y:s;ii,r«s.r-*- 

7. TwSle^V ?o« "u ple^ air and effort air adulated by nixing cold and hot decks 
o cinnlp cold deck with fixed bypassed return air with terminal reheat * L n f 

9*. Two level room with constant volume cold plenum air and yariable volume comfort air a * 

' deck temperatures. . . 

There can be as much as 10 air pf^hi ank PGr if U the ^rd f "zone ?s C fed S by the^fifth alr^andfer through a 

terminal V^at ‘otth^ .ttinTr Liler (yp. (1) shall fill in the fifth ro« 
and 3rd. column as shown. 











TABLE B-16 COLD/HOT DECKS SETPOINT TEMPERATURE (SETPTS) 


^JSndler 

COLD 

HOT 

1 (first) 



2 (second 

) 


3 



4 



5 



6 



7 



8 



9 



10 




Col d/hat deck set points (°F) are the air temperatures set for air leaving the cooling coil 
(in thf cold dick) and/or that for air leaving heating coils (in the hot deck). Therein be 
as much as 10 air handlers per building. Cold set point is usually adjusted around 55 F, and 
hot set point is usually adjusted around 80°F. These values are only used as guidelines and shall 
be substituted for actual field data only is set points are not known. 


CO 


TABLE B-17 MAXIMUM ALLOWABLE PLENUM AIR TEMPERATURE (TPAM) 


MAXIMUM PLENUM TEMPERATURE 


°F 


This is only applicable for two-level room conditioned by two streams of air j plenum air for q 
cooling electronic racks, etc. and comfort air, if no yalue is given, the program will assume 62 F. 




TABLE B-18 TYPE OF HEATINS FOR TERMINAL REHEAT COILS (REHEAT) 


ZONE 

1 

2 

3 

4 

5 

6 

7 

8 

REHEAT 

• 









This table applies only to Zones that are associated with air handler type 1, 3, 5, 6 and 8 
(as 'in table B-15) which have terminal reheat coils. A maximum of 8 zones per building shall 
be used. Type of reheat in the heating colls shall be 0, X* 2 or N/A as follows: 

0 For electric reheat 

1 For gas -fired reheat 

2 For heat pumps (in heating mode) 

N/A for a non-appli cable case 


TABLE B-19 AIR FLOW RATIO FOR SPECIAL ZONES (HFBRA) 


ZONE 

1 

2 

3 

4 

_5 

_6 



_S 

AIR RATIO 










This table applies only to zones associated with air handler types 5, 6, 7, 8 or 9 (see table B-15). 
For zones fed by sn air handler type 5, 6, 7 or 9 (i.e., two level zones) the ratio of comfort air 
discharge (cfm) to total air discharge (cfm) supplied to the zone shall be used. The total air 
discharge to these zones is the sum of plenum and comfort air flows. For zones fed by an air 
handler type 8 (see table 15), the ratio of bypassed return air (cfm) to total air discharge (cfm) 
supplied to the zone shall be used. (N/A) shall be used for a non applicable case. Measurements 
of air flow in cfm in the various ducts shall be made or may be substituted by design values 
shown in as-built drawings. 




TABLE B-20 type pp HEATING I N AIR HANDLER HEATING COILS (HEATER ) 

A Vft > ■» f I l' I i 


AIR HANDLER - 1 
HEATER 


bet t*:5w;M P6r bUlld1nS - The 0f 1» «ch ljr handle , shaH 

0 for electric heaters 

1 for gas-fired boilers 

2 for heat pump (in heating mode) 

N/A for a non-appl tcabte case 


TABLE B-21 OUTSIDE AIR TO TOTAL AIR RATIO (ALFA) 


iNDLER I i ? • ; rz rr 
rmr-ami — a a 5 


-6- 1 ' ft g 


outside air discharge (cfm) ^o^total ^Ir^iJrh" 9 ' J h f outstd e air ratio is the ratio of fresh 
ratio will be a number vanying f?Jm o o to 1 S 9 I ( Xe ? * ir) hand1ed the air hind llr The 
s de air and 100* recycled return air Thp ^i,, 2 ?,!? lues «»ans no ventilation by frllh on? 
air handler is outside ai? wiih n 0 reiurl T nS m% of the Sift 
Measurements of outside air disc^iTc^^ 1*^*. K ° n ‘* PP,icab7e bo * es * lef? blank. 






TABLE B-22 TYPE OF OUTSIDE AIR ECO^MHER CONTROLS CECON) 


AIR HANDLER 

1 

2 

3 

■ . 4 

5 

6 

‘ 7 

8 

9 

10 

ECONO. TYPE 1 












Table 8-22 allows for TO air handlers per building. The outside air economizer cycle controls 
shall be 0, 1 or 2 as follows: Other 'Cases shalt be identified and listed in alphabetic form according 

'to manufacturer's name. However, the ^^^can be used as a starting point. 

1 for Honeywell -type eearusalzer control 

2 for Barber-Coleman (DIGI-DAp) type control 

TABLE B-23 AIR DISCHARGE/DISTRIBUTION (ZCFM) 



3 

Table B-23 shows how the air discharge (in ft /min) is divided between zones. 

A maximum of 10 air handlers per building and a maximum of 8 zones fed by a single air 
handler are allowed. Buildings with more than 8 zones per air handler shall be grouped into 
Macrozones. Zones that see the type of air handler identical (from table 15) can be grouped 
into one macrozone with one total cfm. A zone (or macrozone) can be fed by more than one air 
handler. Non-appli cable boxes shall be considered zero. Measurements of air flow in cfm in the 

drawings? 1 ^ 5 ^ Z °" eS sban be made or my be substitL,ted hy design values shown in as-built 











TABLE B-24 REFRIGERATION/HEAT PUMP - COMPRESSOR CAPACITY (SIZE) 


Sj 

iWBH 

FIRST STAGE 
COMPRESSOR 
(TONS) 

SECOND STAGE 
COMPRESSOR 

(TONS) 

HEAT PUMP 

Blfr > 

LLfirst) 




« 2 (second) 




3 




4 




5 




6 



1 — ■ * ' 

7 

* 

| 


8 




9 




10 





ro 

o 

ro 


.0 compressors ^"building! *tX stages 1 ^two^cLVuwis^ 9 ar^Tnly 1 ] iVtecT wiW r t1)e Ca secQncf sfage 1 as 
giving the run compressor tonnage when on. Compressors having more than two stages shall be 
approximated by dividing the full load tonnage by 2 and entering the result in each of the 2 
colunais. The third column is reserved for compressors that can switch cooling/heating operation 
(heat pump). The datato be entered in the third column are the heat pump capacity in Btu/hr 
when operating in heating mode. "Blank" or "zero" values shall be used otherwise. 
















TABLE B-2S 


AIR HANDLER - COMPRESSOR ARRANGEMENT (COPRES) 




Table B-25 gives information about which compressor is feeding a specific air 
handler and vice versa. A maximum of 10 air handlers can be fed by a sinqle 
compressor, and a maximum of 10 compressors per building are allowed. For 
example, the first compressor is feeding air handlers number 1, 5 and 6. 


i 

l 

I 


... 









TABLE B-26 TWO-LEVEL ROOM INDEX 


(ICNTRL) 



Table B-26 applies primarily to two-level zones (or rooms) such as control rooms. The index differentiates 
between the various air handlers in supplying a two-level zone and supplying a single-level zone. The index o 

can be an integer 0, 1 or 2, according to the following. The index shall be taken (zero) if the zone is a ^ 

single-level (simple) zone fed by one or more air handlers supplying each the same air temperature (not 
necessarily with equal air discharge). The index shall be taken (zero) also if the zone is a two-level zone 
fed by two air streams (cold plenum air and comfort air) of different temperatures coming from a single air 
handler. (The air handler/zone type in this case can be 5, 6, 7 or 9 as in Table B-15.) For two-level zones 
fed by two or more air streams ( single comfort air stream and multiple cold plenum streams) the following 
indexes apply: Index equals (1) shall be given to each air handler participating in supplying the plenum air, 

Index' 1 equals (2) shall be given to the air handler which is feeding the comfort air only (see bottom sketches). 
Non-applicable cases shall be left blank. If "index" equals 1 or 2, the air handler type (see Table B-15) can 
only be 1 , 2, 3, 4, or 8. 


Index=2 



Index=l Index*! 


Index=Q Index-0 




Index =0 


Index -0 


Index =0 


































TABLE B-27 NET WALL AREA (AWALl 


ZONE 

sof 

SW(2) 

W(3) | 

NW(4) 

SE(5) 

E(6) 

NE(7) 

M(8) 

ROOF 

1 










2 










3 










4 


> 








5 

6 


■ 

■ 



• 





7 

8 




* 







The net wall area in square ^ et N J e jj cl f s^th-east^^East! N^North-eas^and 3 ^^^!!! 9 a zone of 

S-South, SW South-west, W West, NW North-west, South east, t ta: orientat1on wa n s shall be grouped and 

irregular geometric shape combining tha either next to a non-air-conditioned area (such as outside 

summed. Only zone wall areas and onentet ions that neither “ e Yn°lu ded . Floors are assumed Insulated 

air, mechanical rooms, etc.) or next to a constant mp . nee ded Non-applicable boxes shall be left blank, 
and not losing or gaining heat rrom sub levels, the ^f°re no * havinqtwo (or more) walls having the same 

Contour measurements of wa ^s, roof + imfi ^ S uhnf,y.inn zones use can be made of one (or more) of the 9 orientations 
?^re a ?a°ble1Lt df rtl^wise So TteprogramVill not differentiate wall orientations unless the wall is 

an exterior (see Table 3-30). 


TABLE B-28 OUTSIDE WALL SURFACE ABSORPTIVITY (ABSORT) 


SOLAR ABSORPTIVITY 




absorptivity. 



















TABLE B-30 * ADJACENT CONDITION OF WALL CAD J X. 


ZONE 

_sm_ 

Mzt. 

MID 

■NWjP- 

JSE(D_ 

jm- 

■NE17.U 

M.CD— . 

—ROOF. . <1 

1 

O 




• 


- 1 - " 


- 


— 

o 




. 





— 

J 

A 







: 



*r 

s 1 










0 

6 




♦ 






CO ^ 








i 



0 means no wall exists or there is a thin partition between two air-conditioned zones having 

always the same temperature. 

1 case of an interior wali/partition next to a room with a constant all year around temperature 

(see table 32 also) ' . , 

2 room hlusingtoil Ss^pw^T tlS^d n ^ighbo2/?Sm Imposed to the 

ambient air temperature fluctuations ..... * 

3 case of an exterior wall exposed to ambient air temperature fluctuations in addition to 
solar radiation 

Tables B-27, B-29, B-30, B-31 , and B-32 shall be completed simultaneously, 
left blank. 


lion-applicable boxes shall be 


ro 

o 



TABLE B-31 FRACTION OF UNSHADED PORTION Of WALL (SHADE) 


ZONE 

s(l) 

SW(2) 

W(3) 

NW( 4) 

SE(5) 

E(6) 

N£(7) 

N(8) 

-ROOF—, 

1 


**' 








2 










3 










4 










5 








i 


6 










7 










LI— 











Table B-31 gives information about the percentages of shading and unshading exterior walls by overhangs. 

Since the shaded/unshaded areas vary throughout the day and with the season in a complex manner, the data 
supplied to this table shall be considered as an approximate observation for the year. Each wall or roof o 

in a particular zone shall be associated with a shade number. The shade number to be used in Table B-31 00 

shall be the ratio of unshaded area of a wall to its total wall area. This ratio varies from zero for 
completely shaded walls to 1 .0 for unshaded walls. Non-applicable boxes shall be left blank. Unshaded 
fractions are taken as yearly average. 









-1 . bVr • Hibliniliri til 


aitj jM aY.h. 







TABLE B-32 TEMPERATURE OF CONSTANT TEMPERATURE NEIGHBOUR (JNEXT) 


ZONE 

s(D 

SW(2) 

W(3) 

ww j 

SE(5) 

E(6L- 

NE(7) , 


1 









2 


1 — — 







3 


. 







4 




! 





5 

'.j 








6 









7 



r : 






8 










Temoeratures of neighbouring zones (in deg. F) shall onl£ be listed whenever the adjacent table (Table B-30) 
shows ADJACENT = T This means that the neighbouring zone is at a constant temperature al l year round. 
tS B-32 does not apply to any other cases'and shall be left blank if ADJACENT = 1 condition is not met. 
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TABLE B 


-34 INCANDESCENT LIGHT POWER ANDJCHHDUL E^IH KILM A^ 


CMLGHIl 



ro 


» n ttivmri hourly (for 24 hours) for only 

shall - 














TABLE B-35 


FLUORES 


daytypH! 

;i-. 

— 1 - ' 


. . 2 


- 1 


2 


1 


2 


1 

! 

2 


1 


2 


. 1 


2 


1 


2 


1 

O 1 



Table B-35 has the same co 
light power are listed ins 
calculating the electric e 














TABLE B-36 ELECTRICAL EQUIPMENT POWER AND SCHEDULE IN KILOWATT (KEQUPE) 


ZONE 


a 


a 

4 

a 

a 

m 

8 

8 

!io in 

— i 

riz 

£ 

m 

15 

16 

17 

18 

19 

20 

E" 

i>2 i23 

24 

1 

1 

■ 


■ 

■ 

H 


m 

| 

B 

? 

5 

i 


B 

s 

jfl 
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■ 

■ 

B 




Z _ 

■ 


■ 


■ 


■ 

g 

9 

9 

■ 


fl 

B 


■ 

fl 


■ 

■ 





2 

— — 

1- 

■ 


■ 


g 


B 

5 

fl 

| 

fl 


g 

fl 


B 



r 






2 

■ 


■ 


■ 


B 


9 


■ 


i 



B 



B 

fl 





3 

... 

I 

■ 


g 




B 


9 


1 





■ 



■ 

■ 





2 

5 


g 




fl 


B 







fl 



fl 

fl 





• 

4 

- 1 

5 


■ 




B 




■ 





fl 



fl 

fl 





2 

i 


■ 




■ 




■ 





B 



fl 

fl 





C « 

1 

■ 






B 









B 



B 

fl 





a 

2 

■ 


■ 

■ 



fl 












■ 

fl 





6 

1 



■ 

j 



B 









fl 



■ 

fl 





2 



■ 

■ 



fl 





1 







fl 

fl 





7 



1 



■ 

■ 



B 





i 

i 




fl 




fl 


r — 



2 

■ 


■ 

■ 



fl 












fl 






8 

1 

■ 






■ 





j 







fl 

fl 





V 

2 



■ 

■ 


■ 

■ 


BBI 


■ 



s 

■ 

■ 


fl 

■ 






The electrical /electronics equipment wattage and schedule inside each zone shall be given hourly 
(for 24 hours) for only two representative days per year, Daytype 1 is a regular weekday type and 
daytype 2 is a weekend (or a holiday) type. Electric wattage is additive for all equipment inside 
the conditioned zone. External electronic/electrical equipment power shall not be considered in 
Table B-26 but rather be included in Table B-38. Non-applicable blocks shall be left blank. Data 
may be provided by name plate capacities assuming full load operation or else measured. 











TABLE B-37 MECHANICAL EQUIPMENT POWER AND SCHEDULE IN KILOWATT (KEQUPM) 


ZONE 

daytoF^ 

9 

ai 

11 

91 

i 

9 

91 


71 

91 


91 

a 

91 

1 

91 

91 

9 



9! 

9! 

23 

24_ 


1 


■i 



a 

a 

9 

B 

a 

B 


a 


Bl 

■ 

Bl 

ai 

a 

1 


a 

B 



1 

1 

9 

B 

H 

■ 


■ 

■ 

1 

B 

g 

B 


a 

a 

fll 

a 

Bl 



B 


a 

II 



2 

£ 

1 

■ 

9 

a 


a 

B 

a 

B 

| 

fl 


a 

a 

Bl 

a 

Bl 

ai 

a 

B 


a 

a 



i . 1 - — 

2 

■ 

■ 

a 


a 

B 

a 


a 



B 

a 

Bl 

B 

Bl 

B 

b 

■ 


a 

a 




1 


a 

a 


■ 

B 

a 

fl 





B 

1 

B 

fl: 

I 

■ 



i 

i 



3 

2 

■ 

a 

a 


a 

B 

a 

B 

I 

B 


| 

B 

B 

a 

a 

fl 


fl 


a 

B 



4 ' 

1 

■ 

a 

a 



B 


B 

a 

B 


a 

a 

fl 

a 

a 

fl 1 

B 

fl 


a 

a 



2 

■ 




9 

B 


B 

B 

fl 


B 

a 

B 

a 

a 

B 


H 


a 

a 
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a 

B 
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B 


B 


B 


B 

B 

B 

a 

a 

fl 

g 

B 


a 

a 



5 * 

2 


a 

IB 


a 

B 


B 

s 

B 



IB 

B 

B 

B 

IB 

B 

n 


a 




6 

1 

H 

■ 

B 


a 

B 


fl 

■ 

B 



IB 

fl 

a 

B 

a 

B 

IB 



a 



2 

■ 

■ 

B 


IB 

IB 


B 

S 

fl 


B 

IB 

B 

a 

a 


g 

B 



a 



7 ; 

I 

r 

fi 

II 


■ 

B 


B 

mm 

HP 

B 


a 

IB 

B 

g 

a 

a 

IB 

B 


■ 

IB 



2 

■ 

IB 

II 


ia 

B 


B 

H 

B 


a 

IB 

fl 

a 

a 


ifl 

IB 


i 

■ 




1 


II 

II 


II 

■ 


■ 

i 

IB 


■ 

■ 

a 

IB 

■ 



g 


l 

i 



8 

2 


IB 

m 


■ 

B 


B 

i 

B 





IBB 


IB 

ia 


■ 

g 


L. 


rp 

i— » 


Table B-37 has the same comments/description as Table B-36 but is concerned with data related to 
mechanical equipment instead. Data may be provided by manufacturers namelist capacity assuming ^ 
full load operation or else measured. Non-appllcable blocks shall be left blank.. Only mechanical 
equipment which contribute to room heat gain, excluding air conditioning equipment, shall 

be entered. 


i it-WiTiirtiiaiiTUi 





■ nr i ! hffir Mwfiifci 


TABLE B-38 DAILY ENERGY CONSUMPTION BY AUXILIARY EQUIPMENT (ACCERY) 


ACCESSORIES 

(KWh)v 

DAYTYPE 1 

DAYTYPE 2 

AIR HANDLER FANS 



CONDENSER FANS 


i 

BOILER PUMPS 



EXTERNAL LIGHTS 



OTHER 

- 



Auxiliary equipment is here defined as that equipment outside the air conditioned zone space 
which does not affect the heating/cooling load calculations though necessary to run the system. 
Auxiliary equipment affects directly the watt hour meter reading. The load profile and schedule 
for such equipment can be quite complex and an approximate daily energy consumption is sufficient. 
Table B-38 identifies some of the auxiliary equipment such as air handlers fans, condenser fans, 
boiler pumps, external lighting, etc. Data can be found by multiplying the full load name plate 
kilowatt times the average number of working hours per day. Two days (daytype 1 and daytype zj, 
if different, shall represent the accessories energy consumption for similar daytypes. Non- 
applicable blocks shall be left blank. Refrigeration compressors, electric and gas heaters should 
be excluded from this table. 
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TABLE B-39 


TIME CLOCK SCHEDULE (TMCLK) 




Table B-39 gives the time clock schedule which controls the air -handler operation only. Other time 

clocks which are connected to light bulbs or electronics equipment shall alter the power levels with 

schedule and will appear indirectly in tables B-34.-B-35, B-36, and B-37. Two. representative days per year are 

considered day type (1) and daytype (2). Time clock indicator shall be either (0) or (1 ). Zero means 

the time clock is OFF and the air handler/ compressor equipment are still on. The value (1) means that the 

time clock is triggered and the air handler/compressor equipment is OFF. Non-appli cable blocks shall be left 

blank. 
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TABLE B-40 WALL CROSS SECTION DESCRIPTION TABLE B-4-1 ROOF CROSS SECTION DESCRIPTION 


LAYER 

THICKHES 

INCH 

S LAYER MATERIAL 
DESCRIPTION 

1 

* 


2 



3 



4 



J 




LAYER 

THICKNESS 

INCH 

LAYER MATERIAL 
DESCRIPTION 

1 

* 

. 

2 



3 



4 

* 

• 1 



— -r 

i 



In Tables B-40 and B-41 only ONE wall and ONE ro.d'f 'shall be 
examined for each building. Layer thi cxnesses (in inches; 
and material description are required. An air space shall be con- 
sidered as a layer. The entire roof description starting from uhe 
inside (living) space to the outside ambient air shall be described. 
Sketches are recorrcnended to clarify the construction. For each layer 
material the values of specific heat, thermal conductivity and density 
must be provided. 





ro 

3 
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APPENDIX 11 C " 
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APPENDIX C 
UVPH1 SUB-PROGRAM 


The fUVPHI) sub-program calculates the overall heat transfer coefficients: mean . (U) , 

discussad b in r section U VIl/ n The analytical S descript?on is explained in reference (4). 
C.l Variables List 

The variables used are listed alphabetically as follows: 


Variable 

A 

B 

DENSE 
EDENS E 
ESHEAT 
HI 

HO 

KSUBW 

NUSUBW 

PHI,PHIW,PHIRF 

RESIST 

RLAYER 

SIGMA 

SL 

SPHEAT 

THICK 

TRESIS 

TTHICK 

U, UWL, URF 

V, VWL,VRF 

WIND 

WLAYER 

Y 

Z 


Description 

coefficient, dimensionless 
coefficient, dimensionless 
layer density, Lb/ftr (FI 0.3) 3 

equivalent wall (or roof)density, Lb/ft 0 

equivalent wall (or roof) specific heat, Btu/Lb F 
convective heat transfer coefficient for the inside 
surface, Btu/hr ft 2 ’ 

convective heat transfer coefficient for the outside 
surface, Btu/' hr fs°F 

equivalent thermal conductivity for wall (or roof), 

Btu / hr ft°F 

equivalent thermal diffusivity for wall (or roof), 
ft 2 /hr 

phase angle for wall or roof, radian 

layer thermal resistivity, ft 2 hr°F/Btu 

number of layers in roof (FI 0.0) 

coefficient, ft-1 

coefficient, dimensionless 

layer specific heat, Btu/lb°F(F10.3) 

layer thickness, ft (FI 0.3) 

total thermal resistance for a wall (or roof), 

ft 2 hr°F/Btu 

total thickness of a wall (or roof), ft 

U-factor or overall beat transfer coefficient for wall 

(or roof), Btu/hr. ft 2 °F 

V-f actor, or amplitude of heat transfer coefficient 

for wall (or roof), Btu/hr. ft20F 

wind speed, mph (F10.0) 

number of layers in wail (FI 0. 

coefficient, dimensionless 

coefficient, dimensionless 


i 
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C.2 Input Data Cards 

The four data items: THICK, DENSE, RESIST and SPHEAT should be punched 

on one data card per layer using only 10 columns per data item. The cards 
corresponding to the layers in the roof shall be first, foil owed by the cards 
corresponding to the layers in the wall. A sample data deck is shown in Fig. C-l. 
The data items WIND, RLAYER, and WLAYER should be put on one data card using 
10 columns only, and all constitute the first card as shown in Fig. C-l. 

The first card indicates 9 mph wind speed, 3 roof layers and 2 wall layers.- The 
three data cards following da - ** 3 ~trd 1 give the thickness, density, thermal 
resistivity, and specific hea \*r each layer of the roof. Data cards 5 and 
6 give the thickness, density, -normal resistivity and specific heat of the 
two layers of the wall. 


C.3 Computation Procedure 


1. Calculate the total thickness, thermal resistance, the equivalent density 
and specific heat. 


TTHICK = E THICK(i) 
EDENSE = i 


ft 


Lb/ft" 


hr.ft 2o F/Btu 


TRESIS = E RESIST(i) 

i (including the two air boundary layers on the inside 
and outside surfaces) 


FQurflT = T. THICK(i )*DENSE( i )SPHEAT(i ) 

tsHtai - y TTHICK*EDENSE 


Btu/Lb F 


2. Calculate the overall U-factor for the wall (or roof). 
1 


U = 


Btu/hr.ft 2o F 


or UWL 
URF 


TRESIS 


3. Calculate the outer surface and inner surface heat transfer coefficients, 
assumed as follows: 

Btu/hr.ft 2o F 


HO « T.O + WIND/3 
HI w 1.0 (still air) 

4. Calculate the equivalent thermal conductivity and diffusivity. 


Btu/hr.ft 2o F 


KSUBW = TTHICK 

tresis - (1/HT) '-"(WE 

NUSUBW = (edens KS e ^ E sHEAT) 


Btu/hr.ft°F 

ft 2 /hr 


BEGIN KEYPUNCH PROCEDURE 
IN COWMNNo. INDICATED 


0 11 21 31 

t t 'f t 
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Figure C-l. A typical data deck for TJVPHI subprogram 
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Figure C-2. Flow chart for UVPHI subprogram 


ttt* -M.tXC. '*■ = 



















5. Calculate SIGMA and SL coefficients defined as: 

. ^ 

SIGMA = ipT/ (24*NUSb‘BW) 

SL - SIGMA*TTHICK 

6. Calculate the tri gonometri c and hyperbolic functions of SL needed to determine 
angle (PHI) 

CO = COS (SL) 

SI = SIN(SL) 

HCO = COSH(SL) 

HSI * SINH(SL) 

7. Calculate A, B 5 Y and Z coefficients defined as: 

A .« {HI*H0)/2*(SIGMA*KSUBW) 2 
B = (HI + HO)/ (SIGMA * KSUBW) 

Z= [ (A+l )*SI*HCO ]. - [(A-l)*C0*HSl] + [B*SI*HSl] 

Y = [(A+l)*CQ*HSl] + [ tA-1 )*SI*HCO] + [B*CO*HCO] 

8. Calculate the V-factor from Y and Z. 


9; 


or (VWL) = (HI * K0)/ I SI6MA *KSUBW^(Y2+Z2) 
(VKF) 

Determine (PHI) 


„-l 


Z/Y 


PHI = TAN' 
or (PHIWL 
PHIRF) 

If Z<0 and Y>0 then PHI = 2/7 -PHI 

If Z<0 and Y<0 then PHI = 77 +PHI 

If Z>0 and Y<0 then PHI = 17 -PHI 

The flow chart is sketched in, Fig, C.2 for reference. 

G.4 Example of U, V and PHI calculations: 


Tables C.l and C.2 lists the data collected about one exterior wall and one 
roof respectively for the example building G-86 previously discussed in Section III 


Table C.l Construction details of one exterior wall 
for the example building G-86. 


LAYER 

MATERIAL 

THICKNESS 

(FT) 

DENSITY 

Lb/ft 3 

THERMAL 

RESISTANCE 

ft2hr°F/Btu 

SPECIFIC 
HE AT n 
Btu/Lb°F 

1 

moving air 

*4 

0.07 

0.25 

0.24 

2 

concrete block 

0.667 

65 

1.11 

0.156 

3 

insolation 

0,3 

8 

9 

0.2 

4 

acoustic tile 

0.063 

20 

1.89 

0.3 

5 

still air 


0.07 

1.0 

0.24 
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Table C.2 Construction details of one zone roof 
for the example building 6-86 


LAYER 

MATERIAL 

THICKNESS 
(in, ft) 

DENSITY 

Lb/ft 3 

THERMAL 

RESISTANCE 

f£rhr°F/Btu 

SPECIFIC 

HEAT 

Btu/lb°F 

1 

moving air 


0.07 

0.25 

0.24 

2 

built-up roof 

0.03 

192 

0.33 

0.2 

3 

insulation 

0.167 

11 

5.56 

0.2 

4 

insulation 

0.208 

6 

4.2 

0.2 

5 

metal deck 

0.012 

489 

0.0 

0.12 

6 

air space 

2.0 

0.07 

2 

0.24 

7 

suspended 

ceiling 

0.063 

20 

1.89 

0 .3 

8 

still air 

— 

0.07 

1.00 

0.24 


The wind velocity WIND = 9 mph 

RLAYER = 8 
WLAYER = 5 

Following the computation procedure given in Section C.3. The values of 
U, V and PHI were as follows: 


UW = 0.075472 
VW = 0.01807 
PHIWL = 2.9624 

Btu/hr.ft^°F 

Btu/hr,ft 2o F 

radian 

UR = 0.06566 
VRF = 0.037787 
PHIRF = 1 .7041 

Btu/hr.ft^F 

Btu/hr.ft 20 F 

radian 


The computer program that calculates the parameters U, V, and PHI is listed 
next for use prior to the processing of the ECP program. 
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UVPHX PROGRAM PRE-PROCESSOR OF ECP PROGRAM 


DATE 07217B 
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i3592*VICCn 

1 

5 

3 

4 

5 
ft 

7 

8 
9 

10 

11 

12 

13 

t4 

15 

16 
1? 

18 

1R 

?0 

21 

22 

23 

?u 

?5 

?6 

27 

28 

29 

30 

31 

32 

33 
30 

35 

36 

37 

38 

39 

40 
ill 
42 

03 
40 

45 

46 

47 

4 8 

49 

50 

51 

52 

53 

54 

55 

56 


II V PH ! 

A PROGRAMME FOR 7 HE COMPUTATION OF UtV AND PHI t VALUES THAT ARE RELATED 

to the thermal properties of a wall 

THICK a THTCKNFSS OF A LAYER IN FT 
DENSE 3 DENSITY of THAT LAYER IN LB/CU FT* 

RFSTST a THE^al RtSISTANCP OF THAT LAYER IN 0*FT B $HnUR*DER F PER RTU 
SPHEAT a SPECIFIC HEAT OF THAT LAYER IN BTU PER LB P£R DEG F 

U s HEAT TRANSFER COFFICIENT OF WALL IN BTU P£R HR^FT* (DEG F) 

V a FACTOR 'DUE 10 THFHaML DIFFTSIVJTY OF WALL) IN THE AMPLITUDE OF 
THR AMOUNT OF HEAT TRANSFERRED 

PHt * PHaRSF LAG IN transmission 

hind a VELOCITY OF WIND IN MILES 
WLAYER o NO, OF LAYERS THE WALL HAS 

PLAYER a NO, OF l AYFRS THE ROOF HAS 


REAL KSUBWi NllSUBW 
REAOCStlOO) W1N0*RLAYER<WLAYE.R 
HOsl . + W1N0/3* 

HI* J 

MRLAYER 

C 

C in THE FOLLOWING DO-LOOP? J*i IS FOR THE ROOF AND J*2 FOR THE WALLS 
C 

DO 20 J=hH 
TTHICK=0. 

TMASSaO* 

TSHEATaO* 

TRE5TSM0. 

C 

C 

c 

c 

DO 10 I»1pN 

READ CSflOU THICK t DENSE f RESIST *SPHEAT 
TTHICK 3TTHICK+THICK 
TMASS »TMASS+ THICK* DENSE 
T$HEAT 3 TSHEAT+ThICK*0ENSE»SPHEAT 
TRESIS 3TRES1S+RESTST 
10 CONTINUE 
U*!, /TRESIS 

KSURWaTTH I CK/ CTRES I S-U /HO- 1* /HI) 

EDENSEsTMASS/TTHJCK 
FSHEAtaTSHFAT/TTHICK/EDENSE 
NUSUBwxKSUBW/EDENSE/ESHEAT 
SIGMA rSDRTC3.14159/?4,/NUSUBW) 

si, *s i gma^t thick 
CO=COS(SL) 

SIxSINCSL) 

HC03C0SHCSI ) 

HSI*5INH(SL) 

A3MI^H0/2«/(SXGMA*KSUBW)^A2 
Bs(HI + H0}/SIGMA/KSIJ9W 

Y=CA+n*COtHSI+(A-n^SI+HCO+B^CO^HCO 
Z=( A+U*SI*BCO-C AM)*ca*HSI + B*SI*HSI 
V=HI»H0/SIGMA/KSUBW/SQRTCY+YfZ*3) 

P 1*3 * 1 4 1 59 


ro 

ro 

CJJ 


5 6 
W £ 

A *ti 
a > 

feg 
C & 

H l-A 

SO 
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,| UVPHI PROGRAM “—A PRE-PROCESSOR OF ECP PROGRAM 

PH I* AT AN ( A BS C Z /Y ) ) 

IF( Z.LT .0, , AND.Y.GT .0,)PHI»?*PI-PHI 
TP(Z.LT.t)..AND.V.LT.O.)PMIi«PI+PHI 
if cz.or.u., and.y.lt.o.)phi*pi-phi 

IP(J.E0.2)G0 TO I 
WRITEfbt J02) 

go ro 2 

1 WRITE (6* 10 J) 

2 WRITE (6,105) 

WRITE {6,100) II, VtPHI 
N= WEAVER 

20 CONTINUE 
inf) FORMA T( 3F10. 0 ) 

101 FORMAT CUFI0.3) 

102 FORMAT f//3HXt • ROOF I //) 

103 FORMAT (/////32X.1 WALL * //) 

100 F0RMAT(F16.S,F23.5fF20.5) 

105 FORMAT (I U I , | 

+ PHI 1) 

STOP 
END 

CPU! .021 CTPl ,000 SUPSj .923 
•8RKPT POINTS 
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